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ABSTRACT 


This  report  describes  work  done  under  grant  AFOSR-76-2962. 
This  work  has  included  the  development  of  computer  programs  for 
simulating  spacecraft  charging  at  three  levels  of  complexity: 
LOCHG,  a  relatively  simple  local-charging  calculation;  CYLVIA,  a 
two-dimensional  simulation  program  for  treating  cylindrical 
spacecraft  cross-sections,  and  XYCIC,  a  simulation  program  for  the 
treatment  of  a  larger  variety  of  two-dimensional  geometries.  This 
work  has  also  included  studies  of  two  physical  phenomena  which  are 
fundamental  to  an  improved  understanding  of  spacecraft  charging: 
the  "threshold  temperature"  effect  and  the  "barrier"  effect.  Also 
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a  derivation  of  two  results  which  appear  likely  to  be 
uture  simulation  studies :  an  analytic  expression  for 
on  currents  on  surfaces  with  variable  illumination  in 


electric  fields,  and  a  perturbation  technique  for  calculating 
space-charge  density  and  flux  along  particle  orbits. 


1.  INTRODUCTION 

The  performance  of  many  satellites  in  geostationary  orbit 
has  been  degraded  by  anomalous  events  which  include  frequent 
spurious  spacecraft  commands  and  in  some  cases  permanent  damage 
[Rosen,  1975;  McPherson  and  Schober,  1976^.  These  events  invariably 
appear  to  involve  electrical  discharges  caused  by  differential 
charging  of  spacecraft  surfaces  to  large  relative  potentials.  The 
latter  condition  is  known  to  result  from  the  large  average 
energies  (up  to  a  few  keV)  of  the  charged-particle  environment  at 
geostationary-orbit  altitude,  particularly  in  disturbed  magnetospheric 
conditions.  In  order  to  be  able  to  design  spacecraft  in  future 
which  do  not  suffer  from  such  difficulties,  it  is  important  to  be 
able  to  make  reliable  predictions  of  them  on  proposed  spacecraft 
configurations.  The  ability  to  make  such  predictions  requires 
improved  understanding  of  the  plasma  sheath  which  connects  a 
spacecraft  with  its  environment  in  such  conditions.  This  sheath  is 
more  complex  in  many  ways  than  those  which  usually  surround 
lower-altitude  spacecraft  because  at  geostationary-orbit  altitude, 
the  fluxes  of  incident  electrons,  secondary  and  backscattered 
electrons,  and  photoelectrons  can  all  have  comparable  magnitudes 
and  usually  vary  by  large  amounts  over  the  surface  of  a  spacecraft, 
and  the  relative  weakness  of  space-charge  shielding  (large  Debye 
length)  means  that  electric  fields  due  to  charging  of  one  part 
of  a  spacecraft  surface  can  readily  extend  around  the  spacecraft  to 
other  parts,  including  those  on  its  other  sides,  exerting  strong 
influences  on  charged-particle  collection  by  them  and  hence  on 
their  charging . 

Because  of  the  magnitude  of  the  spacecraft-charging  problem, 
a  joint  USAF-NASA  programme  was  commenced  during  the  1970-1980 
decade  to  study  it,  including  the  launching  of  the  P78-2  (SCATHA) 
satellite,  which  was  specifically  devoted  to  the  study  of  the 
high-altitude  charging  process,  and  also  including  theoretical  work 
on  the  nature  of  the  spacecraft-environment  interface  problem:  this 
work  was  to  be  closely  coordinated  with  analysis  of  SCATHA  observations. 
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The  work  described  in  this  report  is  part  of  this  theoretical  effort.  j 

i 

i 

This  work  has  been  conducted  using  a  number  of  different  I 

approaches.  In  Sec.  2,  we  describe  a  relatively  simple  local-current- 
balance  calculation  of  charging  which  formed  the  first  phase  of  it,  : 

and  led  to  the  discovery  that  floating  potentials  (voltages)  of 
many  spacecraft  surface  materials  can  have  more  than  one  possible 
value  in  certain,  frequently-occurring,  space  environments;  the 
possibility  that  this  might  occur  had  been  earlier  predicted  by 
Whipple  (1965) .  Attempts  to  gain  further  understanding  of  the 

conditions  in  which  this  might  occur  led  to  the  realization  that  ; 

this  was  one  of  several  closely-related  phenomena  which  could  all  j 

* 

be  explained  in  terms  of  a  newly-defined  property  of  spacecraft 
surface  materials,  the  threshold  material  temperature  for  high-voltage 
charging  (Sec.  3).  We  present  herein  a  table  of  these  threshold 
temperatures,  calculated  for  a  variety  of  spacecraft  surface 

!j 

materials.  A  second  phase  of  our  effort  was  the  development  of  m 

a  more  elaborate,  two-dimensional  spacecraft  charging  simulation 

/ 

program  called  CYLVIA,  which  treats  the  regions  around  circular 
spacecraft  cross-sections  (Sec.  4) .  We  have  also  begun  development 
of  another  two-dimensional  simulation  program,  called  XYCIC  (Sec.  5) , 
which  treats  a  wider  class  of  two-dimensional  geometries  than  does 
CYLVIA.  The  effort  to  develop  CYLVIA,  together  with  efforts  by 
other  workers  (Sec.  4.6) ,  led  gradually  to  an  understanding  of  the 
importance  of  the  barrier  effect,  an  example  of  which  is  presented 
in  Sec.  4.6. 

A  related  phase  of  our  work  has  been  an  effort  to  develop 
efficient  numerical  techniques,  and  analytical  replacements  for 
some  numerical  procedures,  which  will  be  of  general  use  not  only 
in  our  own  simulation  programs  but  also  in  other  spacecraft-charging 
simulations.  To  this  end,  we  have  developed  an  analytic  expression 
for  the  electric  current  produced  by  photoelectron  migration  on  a 
surface  with  spatially-varying  illumination  in  an  electric  field 
(Sec.  6) ,  and  a  perturbation  technique  for  calculating  current 


I 


3 

density  and  space-charge  density  carried  by  collisionless  charged- 
particle  orbits  (Sec.  7) . 

Listings  of  computer  programs  developed  as  part  of  this  work 
appear  in  Appendices  A-E. 
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2.  LOCHG :  A  LOCAL-CHARGING  CALCULATION 

2.1  INTRODUCTION 

In  order  for  high-voltage  differential  charging  of  a  spacecraft 
to  occur,  some  of  its  surfaces  must  charge  to  large  (usually  negative) 
potentials  (voltages)  relative  to  space.  The  amount  of  such 
"absolute"  charging,  for  the  surface  at  the  largest  potential,  is 
generally  simpler  to  estimate  than  are  the  differential  potentials 
between  this  surface  and  others.  On  the  sunlit  side  of  a  spacecraft, 
photoelectron  emission  tends  to  compensate  for  incident  electron 
fluxes.  Sunlit-side  surface  potentials  therefore  are  generally 
less  negative  than  shaded-side  potentials,  and  may  be  slightly 
positive  if  photoemission  flux  >  ambient  random  electron  flux. 
Therefore,  an  approximate  upper  bound  on  differential  charging 
magnitudes  can  be  obtained  by  simply  calculating  floating  potentials 
of  electrically-isolated  shaded  surfaces,  relative  to  space  pot¬ 
ential.  In  the  present  work,  we  have  attempted  to  obtain  upper 
bounds  on  these  floating  potentials,  which  in  cases  of  interest  are 
usually  highly  negative,  because  these  bounds  constitute  "worst 
cases"  for  design  purposes,  and  also  because  unlike  more  exact 
calculations,  they  can  be  obtained  from  simple  current-balance 
calculations.  Furthermore,  it  is  sufficient  to  consider  local  current 
balance  only,  because  this  corresponds  to  an  electrically-isolated 
surface  element,  which  is  also  a  "worst  case"  for  differential 
charging.  To  calculate  these  bounds,  we  have  constructed  a 
computer  program  called  LOCHG  (LOcal  CHarGing) ,  which  extends  a 
previous  calculation  by  Knott  [l972] ,  of  the  floating  potential  of 
a  spherically-symmetric  geostationary-altitude  satellite  in 
eclipse.  A  listing  of  LOCHG  appears  in  Append  x  A.  To 
investigate  geometrical  effects,  we  have  replaced  Knott's  use  of  the 
Mott-Smith  and  Langmuir  [l9263  orbit-limited  current  expression  for 
collection  of  Maxwellian  ions  by  a  unipotential  sphere,  by  the 
corresponding  expression  for  an  infinite  cylinder; 
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both  expressions  have  been  shown  [Laframboise  and  Parker,  1973]  to  be 
upper  bounds  for  collisionless  ion  collection  as  a  function  of  local 
surface  potential,  for  three-  and  two-dimensional  collectors, 
respectively,  regardless  of  collector  shape,  sheath  potential,  or 
potential  of  other  parts  of  the  collector.  This  replacement  causes 
a  large  decrease  in  ion  collection  and  a  correspondingly  large 
increase  in  negative  shaded-side  floating  potentials  (Sec.  2.3). 
Another  important  ion-current  restriction  may  be  caused  by  "effective- 
potential  barrier"  or  "angular-momentum  selection"  effects  [Bernstein 
and  Rabinowitz,  1959;  Laframboise,  1966;  Laframboise  and  Parker,  1973J 
in  which  the  presence  of  less-negative  sunlit-side  potentials  produces 
dipole  and  higher  moments  in  the  sheath  potential  [Vahleson,  1973] , 
causing  steepening  and  contraction  of  the  potential  well  surrounding 
the  shaded  side  (Fig.  2.1).  A  similar  steepening  effect  will  also 
occur  if  an  isolated  shaded  surface  element  is  surrounded  by  adjacent 
shaded  surfaces  which  for  any  reason  have  less-negative  potentials 
(Fig.  2.2).  The  most  extreme  possibility  would  be  a  potential  profile 
which  was  equal  to  space  potential  almost  to  the  spacecraft  surface, 
then  fell  discontinuously  to  surface  potential.  This  limit  would 
correspond  to  a  "planar  sheath"  situation  in  which  the  ion  collection 
on  any  shaded  convex  surface  would  be  given  by  just  the  ion  random 
flux.  This  amounts  to  a  further  ion-current  restriction  which 
produces  even  larger  increases  in  negative  shaded-side  floating 
potentials  (Sec.  2.3).  This  situation  corresponds  to  a  velocity-space 
cutoff  boundary  for  incident  ions  which  is  "one-dimensional";  the 
cutoff  boundaries  corresponding  to  spherical  and  infinite  cylindrical 
collectors  are,  respectively,  "three-dimensional"  and  "two-dimensional1 
(Sec.  2.2)  [Laframboise  and  Parker,  1973]. 

We  also  show  (Sec.  2.3)  that  if  shaded  cavities  containing 
isolated  surfaces  exist  on  a  spacecraft,  negative  potentials  on  such 
surfaces  may  surpass  even  these  predictions.  In  some  cases,  more 
than  one  possible  floating  potential  results  from  the  calculation. 

This  has  several  implications  (Sec.  2.3),  including  the  possibility 
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(a)  of  "bifurcation  phenomena"  in  which  adjacent  isolated  surfaces  of 
the  same  material  may  arrive  at  different  floating  potentials  as  a 
result  of  differences  in  their  charging  histories  (b)  that  large  and 
relatively  sudden  changes  in  surface  pot  'tials  may  result  from 
gradual  changes  in  ambient  velocity  distributions  (c)  that  such  changes 
may  also  result  from  relatively  gradual  changes  in  beam  emission 
currents  in  a  beam  experiment.  In  Sec.  2.4  we  calculate  effects  of 
ion  drift  motion  on  floating  potentials. 

We  have  also  modified  Knott's  calculation  in  another  way,  by 
including  currents  due  to  electron  backscattering  (Sec.  2.2).  These 
currents  will  tend  to  decrease  net  electron  collection,  thereby  making 
floating  potentials  less  negative  than  otherwise  (Sec.  2.3).  A  process 
not  included  by  either  Knott  or  ourselves  is  secondary  electron 
emission  due  to  ion  impacts;  this  will  also  tend  to  make  floating 
potentials  less  negative.  Ion-produced  secondaries  have  been  included 
in  a  calculation  by  DeForest  [l972j  of  the  floating  potential  of  a 
shaded  aluminum  surface.  However,  no  direct  comparison  is  possible 
between  his  result  and  ours  (Sec.  2.3)  because  we  have  used  different 
ambient  velocity  distributions  than  his. 

2 . 2  THEORY 

The  ambient  electron  energy  distributions  used  in  the  present 
work  are  a  model  quiet-time  spectrum  (Knott  [l972] ,  Figure  1)  and  a 
model  disturbed  spectrum  (Knott  [l972j ,  Figure  2b)  based  on  measurements 
by  Shield  and  Frank  [l97o]  and  DeForest  and  Mcllwain  [l97l]  ,  respectively. 
Both  of  these  distributions,  and  also  the  ambient  ion  distribution, 
are  assumed  isotropic.  The  disturbed  spectrum  was  chosen  from  the 
three  used  by  Knott  because  it  has  a  higher  average  electron  energy 
('MkeV)  than  the  others.  In  using  it,  we  have  changed  it  as  follows: 
in  the  energy  ranges  0.5  keV S E S  10  keV  and  10  keV  -  E  S  40  keV,  we  have 
replaced  Knott's  differential  energy  spectrum  by  /J x  10^  E-*3  and  /2  x 
109  E  electrons/cm  2  sac  steradian  keV,  respectively ,  where  E  is 


energy.  These  relations  are  simpler  than  those  indicated  by  Knott,  and 
they  also  bring  the  model  spectrum  into  closer  agreement  with  the  data 
on  which  it  is  based.  We  therefore  believe  that  they  may  have  been  the 
ones  actually  used  by  Knott,  and  that  the  corresponding  parts  of  Figure  2b 
in  his  paper  may  be  incorrectly  plotted.  For  any  spacecraft  surface 
having  a  negative  potential  fs  < 0,  or  for  a  three-dimensional  (e.g. 
spherical)  surface  having  >  0,  the  orbit-limited  flux  (particle  current 
density)  Je  of  ambient  electrons  is  given  by  [Laframboise  and  Parker, 

1973]  : 


Je  -  J  fvn  7 

(>0=17/2  ')=2tt 

=  f(E)(v  cos  G)  (v2  s  in  9  dv  d0  di|r) 

JE=max(0,-e*s)  J0=O  J.{,=0 


max(0,-e^j  ) 


(1+ e4,s/E)(dJeo/dE)  dE 


(2.1) 


where  e  is  magnitude  of  unit  electronic  charge ,  (♦>  is  local  surface 

s 

Dotential,  dJ  /dE  is  the  ambient  energy-differential  flux  incident  on 
eo 

one  side  of  an  arbitrarily  oriented  surface  element,  v^  is  the  inward 
velocity  component  normal  to  the  same  surface  element,  (v,0,\>)  are 
spherical  coordinates  in  velocity  space  with  vn  as  polar  axis,  and 
E  =  'imev^  -  e<j> .  dJ^/dE  is  tt  times  the  energy-differential  flux  per 
steradian  used  by  Knott  [l972] ,  and  is  given  in  terms  of  the  ambient 

O  O 

electron  velocity  distribution  f  =  d^N^/d3  v  by  the  relation 

dJ  /dE  =  2irfE/m  2,  where  m  is  electron  mass  and  N  is  ambient  ion 
eo  e  e  00 

or  electron  number  density.  Since  f  is  isotropic,  f  =  f (E) .  The  factor 

(1  +  ei  /E)  in  (2.1),  which  appears  to  have  been  neglected  by  Knott, 
s 

leads  to  a  divergent  integration  in  (2.1)  if  <j>  >0,  unless  dJ  /dE-*-0 

s  eo 

as  E  -*•  0 ,  i.e.  f(E)  remains  finite  as  E-*0.  This  implies  that  the 

differential  fluxes  in  Knott's  Figures  1-3  must  approach  zero  linearly 

with  E  at  E  values  smaller  than  those  shown  in  these  Figures.  In  the 

present  work  we  have  introduced  a  linear  rise  in  dJ  /dE  from  0  to  1  eV. 

eo 

We  have  also  introduced  a  sharp  upper  cutoff  at  50  keV  in  the  quiet-time 
spectrum,  also  in  order  to  avoid  a  divergent  integration  when  calculating 
average  energy  for  use  in  backscattering  calculations  (see  below) .  The 
resulting  values  of  N  are  5.43  cm-3  and  5.39  cm-3for  the  quiet-time 
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and  disturbed  spectra,  respectively.  These  values  are  consistent 
with  those  quoted  by  Knott  [l972]  for  the  corresponding  spectra.  The 
resulting  values  of  the  average  ambient  electron  energy  E  are  0.176  keV 
and  4.17  keV,  respectively.  The  incorporation  of  these  changes  has  a 
relatively  minor  influence  on  Knott's  results  [Prokopenko  and  Laframboise, 
1977,  Table  l] . 

In  order  to  obtain  the  orbit-limited  electron  flux  expression  for 

an  arbitrary  cylindrical  collector,  the  lower  integration  limit  in  (2.1) 

must  be  replaced  by  the  two-dimensional  velocity-space  cutoff  boundary 

E  =  max (0 , -ed  ),  where  E,  is  the  total  energy  of  transverse  motion 
j.  s 

kme ( v^2  + Vy2 )  -  e* ,  and  we  have  chosen  a  z  coordinate  perpendicular  to 
the  cylinder  cross-section.  If  $  >  0,  this  complicates  the  integration 

in  (2.1),  which  may  then  be  done  in  either  of  two  ways.  The  first 
[Laframboise  and  Parker,  1973,  Eq.  (6)J  is  to  convert  (2.1)  into  an 
integration  using  cylindrical  coordinates  in  velocity  space.  A  more 
convenient  method  [Mott-Smith  and  Langmuir,  1926;  Polychronopulos , 

1973]  is  as  follows.  We  choose  rectangular  coordinates  (vR,  v  ,  vz) 
in  velocity  space,  such  that  vn  is  the  velocity  component  in  the  inward 
normal  direction  at  the  collector  surface.  Then  vfc  and  vz  become 
tangential  coordinates,  with  vt  in  the  plane  of  the  cylinder  cross-section. 
We  then  transform  to  spherical  coordinates  (v,9,if>)  with  vz  as  polar  axis. 
Then:  v~  =  v  cos  9  ,  v  =  v  sin  9  cos  if;  ,  and  v.  =  v  sin  9  sin  ifi.  The 

condition  Ex  2)0  is  equivalent  to  sin  8  Z  [e<J>s/  (E  +  e4> s )[]  .  For  $  >  0, 

Eq.  (2.1)  is  then  replaced  by: 


J  =  \  fv  d3  v 
e  J  n 


tt/2  _9=tt/2 


JE  =00  'y  —TT  /  t 

=  2  j  j  j  ,  f(E)(v  sin  8  cos  iff)  (v2sin0dvd0 

t=0  i  =  .TT/2J9=Arc  sin[ec+ig/(E+ ecfcg)]2 


,  2r.  .  ,  E 

I  -  ;  Arc  sin(  —  , 

"0  17  L  E  +  e% 


)2  + 


(Ee0s) 


dE 


dE  .  (2.2) 
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In  comparison  with  Eq.  (2.1),  we  see  that  the  integrand  in  (2.2) 
contains  an  extra,  energy-dependent  weighting  factor,  which  arises 
from  integration  of  v^  over  the  fractional  solid  angle  over  which 
ambient  electrons  can  reach  the  collector  at  each  energy. 

A  similar  procedure  is  advantageous  in  obtaining  the 

one-dimensional  (Sec.  2.1)  orbit-limited  flux  expression.  In  this 

case,  the  lower  limit  in  (2.1)  must  be  replaced  by:  E„  =  max(0,-ef  ), 

s 

where  E  =  Srtuv  ?  -  ef> .  This  time  we  transform  (v  ,  v  ,  v  )  to 
**  “  n  n  t.  z 

spherical  coordinates  (v,  6  ,'f)  with  v  as  Dolar  axis.  The  condition 

n  , 

En  -  0  is  equivalent  to  cos  Q  2.  !"e,‘  / (E  +  e .  )"l  .  For  •)  >0,  Eq.  (2.1) 

11  s  s  —  s 

is  now  replaced  by: 


F=<d  6=Arc  cos[e^  /(E+erf  )]’ 

J  =  1  f  (E)  (v  cos  9)(( 

e  W5=° 


s in  9  dv  d9  ) 


dJeo 

*  J  ~  dE 


(2.3) 


independently  of  collector  potential,  as  expected. 


The  corresponding  expressions  for  ion  flux  2K  are  simpler  because 
the  ions  are  assumed  to  be  Maxwellian.  Corresponding  to  the  three-, 
two-,  and  one-dimensional  velocity-space  cutoffs  described  above,  we 
obtain,  respectively  [Mott-Smith  and  Langmuir,  1926;  Laframboise  and 
Parker,  1973] ,  for  ion-attracting  surface  potentials  X^s v  0: 


J. 

l 


J. 

to 


(1  +  X.  ) 

LS 

[2(X.  /tt)  ~  +  exp (X.  )  erfc  (X.  r)  ] 


is 


ts 


is 


(1) 


(2.4) 

(2.5) 

(2.6) 


where  X.  =  -ei>  /kT. ,  k  is  Boltzmann's  constant,  T.  is  ion  temperature 
is  s  1  1 

t 

and  J.  is  the  ion  random  flux  N  (kT . /2rrm. ) 2 .  For  ion-retarding  surface 

to  ro  i  j/ 

potentials  X^g<0,  we  obtain: 


I. 

L 


J.  exp(X.  ). 
io  r  is 


(2.7) 
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We  have  assumed,  following  Knott  [1972]  ,  that  Ti =  1  keV,  and  that 

the  random  ion-to-electron  flux  ratio  J.  /J  =0.025.  Making  these  two 

xo  eo 

assumptions  simultaneously  causes  ambient  charge  neutrality  to  be 
violated  in  general.  Large  apparent  violations  of  charge  neutrality 
are  frequently  observed  in  measurements  made  by  particle  energy 
analyzers.  Such  discrepancies  are  believed  to  result  from  failure  tc 
measure  particles  outside  the  energy  ranges  of  these  analyzers,  especially 
at  energies  of  a  few  volts  or  less  [DeForest  and  Mcllwain,  197l]  .  Our 
calculations  therefore  neglect  any  current  contributions  which  may  be 
made  by  such  particles. 


For  the  secondary  electron  fractional  yield  6  (E) ,  we  have  used, 
following  Knott  [^19721  ,  the  relation  of  Sternglass  fl954aj  : 


6(E)  =  7.4  6  (E/E  )  exp  [-2  (E/E  ) '’l 
m^y  m^x  L  max  J 


(2.8) 


We  have  used  values  of  6  and  E  from  Gibbons  fl966l  , 

max  L  J 


Hachenberg  and  Brauer  [*1959],  and  Willis  and  Skinner  [l973] 


The  process  of  electron  backscattering ,  which  was  not  included  in 
Knott's  calculations,  becomes  important  at  incident  electron  kinetic 
energies  larger  than  those  for  which  secondary  emission  is  dominant. 

For  the  backscattered  electron  fractional  yield  n,  we  have  fitted  the 
results  of  Sternglass  [l954b]  and  Palluel  Pl947j  with  a  relation  of  the 
form: 

n(E)  =  A  -  B  exp(-CE)  (2.9) 


where  the  coefficients  A,  B,  and  C  are  functions  of  the  atomic  number 
Z  of  the  surface  material.  We  have  evaluated  A,  B  and  C  for  each 
surface  material  considered  (Sec.  2.3)  by  substituting  Sternglass'  and 
Palluel's  values  of  h  at  0,  1  and  16  keV,  into  Eq.  (2.9).  For  compound 
surface  materials,  we  have  used  an  atomic  number  given  by  a  weighted 
average  of  those  of  each  constituent.  There  exist  more  recent 
measurements  of  n  ^Thomas  and  Pattinson,  1970;  Darlington  and  Cosslett, 
1972]  which  give  generally  larger  values  than  those  of  Sternglass  or 
Palluel,  especially  for  electrons  having  near-tangential  incidence. 
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Increased  values  of  6  have  also  been  measured  for  electrons  having 
non-normal  incidence  [Allen,  1939;  Dekker,  1958] .  In  a  separate  calcul¬ 
ation  (Sec.  3) ,  we  have  included  angle-of-incidence  effects  on  n  and  5  ,  but 
here  we  have  ignored  these.  We  have  therefore  underestimated  both <5  and 
rt,  and  our  predicted  floating  potentials  in  Sec.  2.3  will  therefore  be 
somewhat  more  negative  than  more  realistic  corresponding  values. 

When  4>s >  0,  not  all  secondary  and  backscattered  electrons  will 

escape.  To  calculate  flux  escaping,  we  assume  [sternqlass,  1954b;  Chung 

and  Everhart,  1974J  that  both  secondary  and  backscattered  electrons  are 

emitted  with  Maxwellian  velocity  distributions  having  thermal  energies 

E  =  kT  =3  eV,  and  E  =  kT  =  (0.45  +  2  *  10-3Z)  (E  +  ef  )  eV, 
sec  sec  scat  scat  s 

respectively,  regardless  of  the  form  of  the  incident  velocity  distribution. 

Here,  (E  +  etji^)  is  the  average  incident  electron  kinetic  energy.  We 

further  assume  that  escape  of  emitted  electrons  is  orbit-limited,  i.e. 

that  no  barriers  of  effective  potential  [Bernstein  and  Rabinowitz,  1959; 

Laframboise,  1966;  Laframboise  and  Parker,  1973]  or  negative  barriers 

of  electric  potential  exist  on  the  shaded  side.  {Fahleson  [l973]  has 

pointed  out  that  such  a  barrier  is  likely  to  exist  on  the  sunlit  side 

independently  of  any  space-charge  effects,  if  substantial  shaded-sunlit 

differences  exist  in  d>  .  Such  a  barrier  would  cause  most  electrons 

s 

emitted  from  the  sunlit  side  to  be  recollected,  driving  sunlit-side 
potential  just  negative  enough  to  almost  destroy  the  barrier  [sec.  4 . 5J  ; 
[katz  et  al,  1979,  Figs.  17-2lJ).  The  expressions  for  the  escaping 
secondary  and  backscattered  fluxes  JSec  and  J  .  therefore  are: 

S  Celt 
oo 

J,„  =  1  5(E+e$  )  (1  +  e<h  /E)  (dj  /dE)  dE  1n> 

.sec  «  eo  (2.10J 

-ecp 

s 

00 

J  =  I*  T|(E+  e$  )  (1+  e±  /E)  (dj  /dE)dE  (2.11) 

scat  v  eo 

-e-fc 

if  <ig  <  0.  If  i>s  >  0,  the  three-,  two-,  and  one-dimensional  cases  must  be 

considered  seoarately.  We  define  x  =  e<t>  /kT  and  v  =  e<f>  /kT 

sec  s  sec  scat  s  scat 

For  brevity,  we  consider  only  the  secondary  fluxes;  the  corresponding 
results  for  backscattered  fluxes  may  be  obtained  by  replacing  6  by  n 
and  \  by  x  throughout.  If  J  is  the  emitted  flux  of  secondaries, 

S  G  C  S  O  <3  ^  s 
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then  their  velocity  distribution  at  the  surface  is  fs  =  (J  /2^)  (rae/kTse(;)  ' 

exp(-ijm  v  2/kT  ).  In  the  three-dimensional  case,  the  cutoff  condition 
e  sec 

for  their  escape  is  E  =  SnigV2  -  e<j>s  >  0.  We  redefine  vn  as  velocity 
component  in  the  outward  normal  direction,  and  we  use  spherical  coordin¬ 
ates  as  defined  in  connection  with  (2.3).  We  obtain,  for  the  escaping 
secondary  flux: 

J  =  f  f  v  d3  v” 
sec  o  s  n 


£s 

2iAkTsec 


E=0  9=0 


exp(-^m  v2  /kT  )  (v  cos  0)  (2tt v2  sin  »dv  d0) 
e  sec 


CO 

=  (1  +  X  )exp(-X  )  f  5(E+  ech  '>  (1+  ecfc  /E)  (dj  /dE)dE.  (2.12) 
sec  sec  ^s  Ts  eo 

The  factor  (1  +  X  )  is  noteworthy,  because  it  is  specific  to 
sec 

three-dimensional,  as  opposed  to  planar,  sheath  geometry.  In  the 
two-dimensional  case,  the  cutoff  condition  for  escape  is  >5me  (vn2+vt2 )  -e?s  >  0' 
and  the  integral  for  Js  contains  the  extra  weighting  factor  which  appears 
in  Eq.  (2.2).  It  is  convenient  to  use  spherical  coordinates  as  defined 
in  connection  with  (2.2).  We  obtain: 


sec 


■[2<>W’’'1  +  eKP<Xsec)  "£c(Xsec^]  e*P<- 


X  ) 
sec 


Arc  sin( 


E  + 


•)%  + 


(Eect>s) 


n  ecDo  d  _ 

]  ( 1 +  E)  dE  . 

(2.13) 


In  the  one-dimensional  case,  the  escape  condition  is  -e4>s>  0, 

and  we  again  use  spherical  coordinates  as  defined  in  connection  with 
(2.3).  We  obtain : 


J  =  exp ( -  X  )  r°°6(E+ecb  )  (d J  /dE)  dE 
sec  sec  eo 


0 


(2.14) 


The  floating  potential (s)  of  an  isolated  shaded  surface  element  is 

(are)  now  given  by  the  zero(s)  of  the  function: 

J  ..  =  J-  “  J  +J  +J  (2.15) 

net  l  e  sec  scat 

2.3  RESULTS  AND  DISCUSSION:  SHADED  CAVITIES  AND  MULTIPLE  FLOATING  POTENTIALS 

Table  1  shows  floating  potential  values  obtained  using  the  program 

LOCHG,  which  performs  numerical  solution  of  the  equation  J  =0,  where 

net 

Jnet  is  given  by  Eq .  (2.15)  An  important  feature  of  Table  1  is  the  very 
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large  floating  potentials  which  are  evident  in  disturbed  conditions  in  the 
presence  of  the  two-  and  one-dimensional  velocity-space  cutoffs.  The 
dramatic  differences  among  these  results  are  evidence  that  spacecraft 
geometry  and  sheath  potential  shape  are  important  influences  in  determin¬ 
ing  floating  potentials.  As  floating  potential  becomes  more  negative,  it 
also  becomes  more  sensitive  to  the  presence  of  small  amounts  of  high-energy 
electrons.  This  means  that  if  a  spacecraft  should  encounter  conditions 
that  are  "more  disturbed"  than  those  given  by  Knott's  spectrum  2b,  the 
values  in  Table  1  most  likely  to  be  signif icantly  exceeded  are  those  for 
the  one-dimensional  cutoff.  This  implies  that  for  design  purposes  in  which 
worst-case  information  is  desired,  it  is  important  to  do  calculations  with 
the  "most  disturbed"  electron  spectra  available.  In  obtaining  these  results, 
we  have  made  no  attempt  to  calculate  the  charging  times  involved. 

Also  evident  in  Table  1  are  situations  in  which  the  current-voltage 

characteristic  of  the  surface  has  three  roots.  For  these  to  occur,  it 

is  necessary  that  6  be  substantially  greater  than  one,  and  that  the 
max 

ambient  electron  spectrum  be  at  least  slightly  non-Maxwellian  (Sec.  3). 

The  latter  requirement  arises  because  if  the  incident  electrons  are 

Maxwellian  and  ion-produced  secondaries  are  ignored,  the  ratio  of  total 

secondary  emission  current  to  incident  electron  current  will  then 

be  independent  of  <j>^  for  <j>  ^  <  0,  and  the  total  secondary  emission 

will  therefore  be  a  monotonic  function  of  <{)  s  for  <  0.  (An  exception 

to  this,  in  which  a  triple-root  situation  occurs  with  Maxwellian  ambient 

electrons,  has  been  found  by  Meyer-Vernet  (1982) ,  but  this  exception 

applies  only  when  T  <  T  ,  a  condition  which  is  not  applicable  here; 
e  sec 

see  also  Sec.  3) .  The  centre  root  never  represents  a  possible  floating 
potential,  because  it  is  "unstable"  in  the  sense  that  a  small  change  in 
surface  potential  would  cause  a  net  current  collection  of  a  sign  which 
would  drive  the  surface  potential  away  from  this  root  to  one  on  either 
side.  Various  consequences  of  such  a  situation  are  discussed  later  in 
this  Section.  A  similar  phenomenon  in  electronic  image  storage  devices 
has  been  discussed  by  Kazan  and  Knoll  [l968,  pp.  17-19]. 

In  comparison  with  the  results  of  Knott  []l972]  ,  Table  1  includes 
the  further  addition  of  backscattered  electron  flux  (Sec.  2.2).  In  most 
cases,  the  effect  is  a  moderate  reduction  of  negative  floating  potentials. 

In  some  cases,  the  reduction  is  large,  as  in  the  case  of  a  gold  surface 
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exposed  to  the  "quiet"  spectrum.  In  several  other  cases,  all  associated 
with  the  quiet  spectrum,  backscattering  changes  a  multiple-root 
to  a  single-root  situation  [Prokopenko  and  Laframboise,  1977J  .  As 
indicated  in  Sec.  2.2,  we  have  probably  underestimated  secondary  and 
backscattered  fluxes  caused  by  electron  impacts,  and  we  have  also  (Sec.  2.1) 
ignored  secondary  electron  emission  caused  by  ion  impacts.  Both  of  these 
effects  would  tend  to  further  reduce  negative  potentials.  For 
ion-produced  secondaries,  fractional  yields  at  energies  from  5  to 
50  keV  are  generally  of  order  unity  to  several  times  unity  for  metallic 
surfaces  [cousinie  et  al,  1959;  Ray  and  Barnett,  1971;  Baragiola  et  al,  1979 J 
so  substantial  reductions  due  to  this  cause  can  be  expected  whenever  ion 
collection  plays  an  important  role  in  total  current  balance.  In  compar- 
ision  with  the  results  of  Table  1,  potentials  reaching  -19kV  on  the  ATS  6  space 
craft  in  eclipse  have  been  observed  (E.C.  Whipple,  Jr.,  private  communication) 

Figures  2.3 -2.7  show  current-voltage  characteristics  for  some  of 
the  situations  in  Table  1.  Figure  2.3  shows  a  "typical"  single-root 
situation  in  which  secondary  and  backscatter  contributions  do  not  change 
the  general  shape  of  the  net  current  curve.  Figure  2.4  shows  the 
above-mentioned  case  of  gold  exposed  to  the  quiet  spectrum,  in  which  the 
backscatter  contribution  changes  a  large  predicted  negative  floating 
potential  to  a  much  smaller  value.  Figure  2.5  shows  a  triple-root 
situation.  Figure  2.6  shows  the  disappearance  of  a  triple-root  situation 
because  of  backscatter.  In  Fig.  2.7,  secondary  electron  current  is 
sufficient  by  itself  to  prohibit  a  negative  floating  potential. 

We  now  examine  situations  which  may  arise  in  the  case  of  spacecraft 
which  have  shaded  cavities  containing  electrically-isolated  interior 
surfaces.  Figure  2.8  shows  an  idealization  of  such  a  spacecraft.  We  wish 
to  show  that  the  effects  of  surface  concavity  may  cause  ion  collection 
to  be  reduced  more  than  net  electron  collection  at  an  interior  point 
such  as  B,  relative  to  an  exterior  point  A;  such  a  situation  would 
result  in  floating  potentials  more  negative  than  those  of  Table  1.  To 
demonstrate  this  possibility,  we  first  note  that  in  the  presence  of  an 
isotropic  ambient  plasma,  incident  fluxes  to  any  surface  depend  only 
[Laframboise  and  Parker,  1973]  on  the  locations,  in  velocity  space,  of 
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the  cutoff  boundaries  inside  of  which  the  orbits  of  ambient  particles 
can  connect  "from  infinity"  to  the  surface.  Figure  2.8  shows  a  set  of 
the  associated  "cutoff  orbits".  We  see  from  Fig.  2.8  that  the  included 
angle  between  cutoff  orbits  has  been  reduced  in  going  from  A  to  B  for 
ions  but  not  for  electrons,  for  which  orbits  tangential  to  the  surface 
are  shown  as  reaching  both  A  and  B  and  the  range  of  allowable  directions 
remains  180°.  Accordingly,  the  incident  ion  current  contribution  for  the 
energy  shown  will  also  be  reduced,  but  the  electron  contribution  will  not. 
This  picture  is  invalid  for  higher-energy  electrons  at  B,  whose  orbits 
are  straighter  and  will  have  a  greater  tendency  to  connect  back  to  the 
interior  surfaces  of  the  cavity.  Even  though  such  higher-energy 
orbits  will  generally  have  lower  populations  than  lower-energy  orbits, 
it  is  not  clear  whether  the  relative  current  reduction  at  B  will  be 
greater  for  ions  or  for  electrons.  Therefore,  this  argument  demon¬ 
strates  only  the  possibility  that  the  bounds  in  Table  1  will  be  exceeded. 

On  the  other  hand,  this  possibility  will  be  enhanced  by  the  effects  of 
secondary  and  backscattered  electrons,  which  will  tend  to  be  recollected 
inside  any  cavity,  rather  than  escaping  into  space,  thus  tending  to 
increase  net  electron  collection  and  driving  floating  potentials  more 
negative.  This  effect  will  be  strongest  for  backscattered  electrons 
because  their  higher  emission  energies  will  cause  them  to  have  straighter 
orbits.  The  detailed  numerical  simulation  required  to  draw  firm  conclusions 
remains  to  be  done.  An  additional  feature  of  cavities  is  their  generally 
higher  outgassing  pressures,  which  will  increase  any  tendencies  for  arcing 
to  occur.  More  negative  floating  potentials  may  also  result  if  the 
ambient  electron  distribution  contains  beam-like  constituents  [DeForest, 

1977 J  which  happen  to  be  directed  into  a  cavity.  Severe  arcing  problems 
are  known  to  have  occurred  between  electronic  components  mounted  inside 
a  cavity  at  one  end  of  the  DSCS  spacecraft. 

Finally,  we  discuss  some  further  implications  of  the  multiple-root 
results  shown  in  Table  1  and  Fig.  2.5.  We  first  consider  a  situation 
involving  a  shaded,  isolated  spacecraft  surface  whose  external  conditions 
change  with  time,  as  in  the  case  of  time-varying  ambient  distributions. 


16 


in  such  a  way  as  to  produce  an  evolution  from  a  multiple-root  to  a 
single-root  situation.  If  a  spacecraft  surface  were  floating  at  a  pot¬ 
ential  corresponding  to  a  root  which  disappeared,  a  large  and  relatively 
sudden  change  in  surface  potential  would  occur,  even  if  external  changes 
were  gradual.  In  many  situations,  rapid  redistribution  of  potentials  on 
other  parts  of  the  spacecraft  would  result.  In  order  to  examine  this 
situation  in  more  detail,  we  illustrate  it  schematically  in  Fig.  2.9. 

In  Fig.  2.9a,  the  current-voltage  curve  at  an  earlier  time  t ^ 

has  three  roots.  The  two  roots  furthest  apart,  <J>  and  $  ,  correspond 

la  lb 

to  stable  floating  surface  potentials;  these  are  typically  from  one  to 
ten  kilovolts  apart.  As  a  result  of  a  changing  environment,  this  curve 
evolves  continuously  into  the  one  shown  for  the  later  time  t  ,  which  has 
only  the  single  root  <b  .  If  the  surface  happened  to  be  floating  at  the 
voltage  $  at  time  t  ,  then  a  sudden  positive  change  in  surface  voltage, 

-Lcl  1 

toward  the  voltage  < p^,  would  occur  as  soon  as  the  two  left-hand  roots 
disappeared . 

In  Fig.  2.9b,  a  spacecraft  surface  floating  at  the  more 

positive  root  (at  would  undergo  a  sudden  negative  change  in  voltage, 

ib 

toward  $  ,  as  soon  as  the  two  right-hand  roots  disappeared.  Sudden  voltage 
changes  have  been  observed  both  on  the  SCATHA  (P78-2)  satellite  and  in 
numerical  simulations  (Sec.  3.1;  Schnuelle  et  al,  1981;  Stannard  et  al, 
1982) . 

Similar  sudden  changes  could  occur  on  a  spacecraft  which  was 
emitting  a  changing  ion  or  electron  gun  current,  if  an  increase  or 
decrease  in  gun  current  were  to  provide  enough  net  current  to  a 
surface  to  cause  it  to  change  from  one  stable  floating  potential  to 
another.  Again,  such  a  change  would  be  relatively  sudden  even  if 
beam  current  changes  were  gradual. 

A  different  effect  could  arise  if  the  situation  evolved  in  reverse 
fashion,  so  that  t  were  now  the  earlier  time.  Consider  a  spacecraft  whose 
rotation  carries  a  number  of  independently-floating  surface  panels  from 
sunlight  into  shade,  one  after  another.  Suppose  the  situation  evolves  as 
Fig.  2.9b.  A  surface  already  in  the  shade  when  the  environment 
changed  would  go  from  voltage  b  2  to  ^  .  However,  a  surface  which  was 
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still  in  the  sun,  and  wh^se  photoemission  current  held  its  voltage 

close  to  <j>,,  ,  would  go  to  <f>  when  it  entered  the  shade.  As  a  result, 
lb  lb 

two  adjacent  surfaces  made  of  the  same  material  could  easily  come  to 
quite  different  voltages  in  the  same  environment,  with  a  resulting  danger 
of  arcing  between  them. 

In  Sec.  3,  we  examine  in  detail  the  conditions  in  which  multiple 


I 

i 


roots  can  occur. 
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2.4  PREDICTION  OF  ION  DRIFT  EFFECTS  ON  SPACECRAFT  FLOATING  POTENTIALS 
2.4.1  INTRODUCTION 

The  plasma  environment  of  high-altitude  spacecraft  has  been 
observed  to  involve  ion  velocity  anisotropies  which  sometimes  become 
comparable  to  ion  mean  thermal  speeds.  These  anisotropies  are  varied  in 
nature,  but  a  qualitative  estimate  of  their  effects  on  spacecraft  charg¬ 
ing  may  be  obtained  by  considering  the  effects  of  a  relatively  simple 
anisotropy,  namely  the  addition  of  a  drift  to  a  Maxwellian  velocity 
distribution.  Such  drifts  may  cause  an  electrically-isolated  spacecraft 
surface  to  float  at  a  substantially  increased  negative  potential  if  it  is 
simultaneously  shaded  and  downstream  relative  to  the  drift  direction.  In 
this  Section,  we  present  a  calculation  of  upper  and  lower  bounds  on  such 
potentials  for  a  spherical  spacecraft,  based  on  the  fact  that  ion  collect¬ 
ion  on  the  spacecraft  at  its  downstream  point  is  bounded  above  by  the 
corresponding  current  which  would  be  collected  if  the  spacecraft  were 
an  equipotential  (i.e.  were  more  attractive  for  ions  elsewhere  on  its 
surface  than  it  is  in  reality)  and  bounded  below  by  the  corresponding 
result  for  a  sphere  at  space  potential.  The  results  show  that  (1)  the 
ion  speed  ratio  at  which  drift  effects  become  "important"  (i.e. 
change  the  floating  potential  by  at  least  10%)  can  be  as  low  as  0.1,  and 
may  be  decreased  if  the  ambient  electrons  are  non-Maxwe Ilian;  (2)  the 
effects  of  ion  speed  ratio  increase  with  increasing  ion-to-electron 
temperature  ratio;  (3)  negative  floating  potentials  for  drifting 
Maxwellian  ion  velocity  distributions  with  speed  ratio  unity  are  typically 
about  twice  as  large  as  the  corresponding  potentials  for  nondrifting 
conditions.  We  now  examine  the  effects  of  ion  drift  in  detail. 

If  a  spacecraft  is  exposed  to  ambient  ions  whose  drift  velocity 
U  is  comparable  to  or  larger  than  their  most  probable  thermal  speed 
[ion  speed  ratio  = U/ ( 2kT^/m^) ^  £  1,  where  k  is  Boltzmann's  constant 
and  m^  and  T^  are  ion  mass  and  assumed  ion  temperature^  ,  a  large  decrease 
in  ion  flux  J-^  to  downsteam  surfaces  will  occur.  Unless  such  surfaces 
are  able  to  expel  surplus  incident  electron  fluxes,  e.g.  by  photoemission, 
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effects  of  ion  speed  ratio  increase  with  increasing  ion-to-electron 
temperature  ratio;  (3)  negative  floating  potentials  for  drifting 
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If  a  spacecraft  is  exposed  to  ambient  ions  whose  drift  velocity 

U  is  comparable  to  or  larger  than  their  most  probable  thermal  speed 
r  > 

[ion  speed  ratio  = U/ (2kT^/m^)  'v  1,  where  k  is  Boltzmann's  constant 
and  m^  and  T^  are  ion  mass  and  assumed  ion  temperature] ,  a  large  decrease 
in  ion  flux  to  downsteam  surfaces  will  occur.  Unless  such  surfaces 
are  able  to  expel  surplus  incident  electron  fluxes,  e.g.  by  photoemission. 
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their  floating  potentials  will  become  substantially  more  negative  as  a 
result.  If  the  ambient  electron  temperature  is  simultaneously  large, 
or  more  generally  the  ambient  electron  energy  distribution  has  a  signif¬ 
icant  high-energy  component,  then  large  absolute  increases  in  negative 
floating  potentials  will  occur,  with  correspondingly  increased  arcing 
hazards.  Even  if  Tg  is  relatively  small,  such  effects  may  influence 
surface  potentials  enough  to  disturb  particle  and  field  measurements. 

Sj^  values  of  order  unity  may  be  reached  in  the  Earth's  outer  magnetosphere 
(Mauk  1975;  DeForest  1977,  Figs.  6  and  8) ;  larger  values  are  likely  in 
the  outer  Jovian  magnetosphere  and  magnetosheath  (Goldstein  and 
Divine  1977) ,  and  in  the  solar  wind  (Dossier  1967;  Axford  1968;  Manka  1973) 
In  both  outer  magnetospheres,  electron  distributions  having  substantial 
high-energy  components  have  been  observed  (DeForest  and  Mcllwain  1971; 
Goldstein  and  Divine  1977) . 

A  calculation  of  ion  drift  effects  on  the  floating  potential 
of  the  lunar  surface  has  been  done  by  Manka  (1973) ,  using  a  local-current- 
balance  formulation.  Parker  (1978)  has  done  exact  numerical  calculations 
of  floating  surface  potentials  for  nonconductive  finite  cylindrical 
objects,  including  photoemission  due  to  illumination  of  one  end  and  ion 
drift  parallel  to  the  axis  of  symmetry. 

In  this  Section  we  have  done  an  approximate  calculation  of  ion 
drift  effects  on  the  floating  potential  of  a  shaded,  downstream, 
electrically-isolated  surface  element  on  a  spherical  spacecraft  (Fig.  2.10) 
using  a  local-current-balance  formulation  which  yields  upper  and  lower 
bounds  on  such  potentials.  This  formulation  is  an  adaptation  of  that  of 
Secs.  2.1  to  2.3.  The  basis  of  the  calculation  is  as  follows:  if  one 
compares,  on  one  hand,  a  situation  wherein  the  entire  spacecraft  is  at 
the  same  potential  as  the  surface  element  in  question,  with,  on  the 
other  hand,  a  more  realistic  situation  wherein  the  rest  of  the  spacecraft 
is  at  a  less  negative  potential  (Fig.  2.11),  then  in  the  latter  case, 
the  potential  well  surrounding  the  surface  element  will  be  steeper  and 
less  spatially  extended,  and  the  ion  collection  will  in  general  be 
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decreased.  When  j  0,  this  argument  is  subject  to  qualifications  not 
present  in  the  nondr if ting  case,  for  which  it  is  rigorously  true  in  a 
wide  range  of  conditions  (Laframboise  and  Parser  1973;  Laframbose  and 
Godard  1974) .  In  particular,  one  can  envision  hypothetical  asymmetric 
sheath  potentials  which  would  cause  a  high-speed-ratio  ambient  ion 
distribution  to  be  focused  onto  the  downstream  point.  We  exclude 
such  cases  in  what  follows. 

The  most  extreme  example  of  steepening  would  be  a  potential 
profile  which  was  equal  to  space  potential  almost  to  the  spacecraft 
surface,  then  fell  discontinuously  to  surface  potential.  In  this  limit, 
the  surface  element  in  question  would  collect  just  downst  earn 

space-potential  current  corresponding  to  the  given  ion  speed  ratio.  The 
downstream-point  current-density  values  corresponding  to  a  unipotential 
sphere  at,  respectively,  the  potential  of  the  surface  element  and  space 
potential  may  therefore  be  regarded  as  upper  and  lower  bounds  on  the  actual 
current  collection  at  that  potential,  the  upper  bound  being  subject  to 
the  above-mentioned  qualifications.  The  resulting  values  of  local  floating 
surface  potential  may  correspondingly  be  regarded  as  upper  and  lower 
bounds  on  more  realistic  values  of  this  quantity.  The  above-mentioned 
upper  and  lower  bounds  on  current  correspond,  respectively,  to  the 
"three-dimensional"  and  "one-dimensional”  velocity-space  cutoffs  considered 
in  Secs.  2.1  to  2.3  for  nondrifting  situations. 

2.4.2  THEORY  OF  LOCAL  ION  COLLECTION  ON  A  UNIPOTENTIAL  SPHERE 

We  assume  a  collisionless  plasma  with  a  drifting  Maxwellian  ion 
velocity  distribution  and  negligible  magnetic  field,  containing  a  fully 
charge-absorbing,  unipotential,  spherical  electrode.  We  assume  that  Debye 
length  Vr>>'>  electrode  radius  r  .  In  the  resulting  spherically-symmetric 

3 

Laplace  potential  ;(r)  =  t  r  /r,  the  nondimensional  ion  current  density 

s  s 

at  the  electrode  surface  is  (Godard  1975,  p.  31) 

3-X, 

exp(-=  -  2Sp=  ‘  cos  a  cose  -  j  I0  (2Si3 's  in  ll  s  in  9  j  d-'  d5 
0  (2.16) 


SO 


max  (0,-^1 
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where  xs  =  qtj^/kT,  B=  E/kT,  fi=  L2/(2mrgkT),  j  =  j/fV^q  (kT/2:rm)  ‘  ^  , 

I  is  the  modified  Bessel  function  of  zero  order,  N  is  number  density 

O  ao 

far  from  the  electrode,  y  is  angular  surface  position  coordinate 
measured  from  the  upstream  direction,  6  is  change  in  direction  of 
the  radius  vector  of  a  particle  as  it  moves  from  infinity  to  radial 
distance  r  ,  and  @  is  related  to  particle  energy  E,  angular  momentum 
L,  charge  q  and  the  potential  profile  <Mr)  by  the  following  expression 
(Goldstein  1950,  Ch.  3): 


9  =  1  Ldr /{rs  [2mE  -  2mqct(r )  -  L2 /r2 3]  ^ 


(2.17) 


We  have  computed  j.  by  integrating  Eq.  (2.16)  numerically.  For 
the  given  Laplace  potential,  Eq.  (2,17)  can  be  integrated  analytically. 
We  obtain: 


9  =  sin'1  [  (2(2  +  X^/Cx2  +  49q)vj  -  sin'1  [^/(x?  + 


(2.18) 


For  space  potential  (Xs  =  0),  Eq.  (2.16)  can  be  integrated 
analytically.  The  result  is  (Tsien  1946) 


i.  ^ 

j  =  rr2  cos  y  [1+  erf (S^  cos  y  )  ]  +  exp(-S|  cos^y) 


(2.19) 


Figure  2.12  shows  results  obtained  for  the  ion  current  density 
j.  at  the  downstream  point  y  =  it  ,  as  a  function  of  S:  ,  with  X„  as 

ITT  -1-  s 

a  oarameter,  where  Xs  =  e<J>s/kIL  <  0  and  e  =  q_  As  expected, 
decreases  with  increasing  and  increases  with  increasing  | Xs I  -  In 
Figure  2.13  the  same  results  are  graphed  logarithmically  as  functions 
of  Xs-  Figure  2.13  shows  that  these  results  may  be  approximated  with 
an  error  £5%  by  power- law  relations  of  the  form 


j,-  <*s)  =  j,-JXs  =  0)+  Ajxl  71  ;  xs  £  0 


(2.20) 


The  resulting  S  dependence  of  the  coefficients  A  ,  a  and  B 

i  r  IT  IT  71 

j.  (X  =0)  is  shown  in  Fig.  2.14. 
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2.4.3  RESULTS  AND  DISCUSSION 

Upper  and  lower  bounds  on  negative  downstream-point  floating  potentials 
for  a  shaded,  isolated  surface  element,  obtained  by  numerical  solution  of  the 
equation  J^+Je  =  0,  are  shown  in  Fig.  2.15  for  various  ion-to-electron  temper¬ 
ature  ratios  e=T1/Te.  Here  we  have  assumed  that  ambient  electrons  are 
Maxwellian,  and  that  Jj_  is  given  alternatively  by  Eq.  (2.20)  with  Fig.  2.14 
and  by  Eq.  (2.19) ,  yielding  upper  and  lower  bounds  on  ion  current,  correspond¬ 
ing  respectively  to  "three-dimensional"  and  "one-dimensional"  ion  velocity-space 
cutoffs  (Sec.  2.4.1).  We  have  also  assumed  that  secondary,  backscattered ,  and 
photoemitted  electron  currents  are  zero.  The  lower-bound  results  are  subject 
to  the  qualifications  noted  in  Sec.  2.4.1.  The  dashed  lines  in  Fig.  2.15 
represent  floating  potentials  for  the  nondrifting  case  S,  =  0.  At  ion  speed 
ratios  larger  than  those  shown,  the  situation  becomes  complicated  by 
electron  speed  ratio  effects,  especially  at  larger  values  of  c.  In 
Fig.  2.15  we  see  that  at  larger  values  of  c,  effects  of  S±  become 
important  at  smaller  Sj_  values. 

In  Fig.  2.16,  upper  and  lower  bounds  are  shown  which  are  similar  to 
those  of  Fig.  2.15,  except  that  instead  of  Maxwellian  electron  velocity 
distributions,  we  have  used  the  "quiet"  and  "disturbed"  electron 

distributions  measured  by  Shield  and  Frank  (1970)  and  DeForest  and 
Mcllwain  (1971)  respectively  in  the  Earth's  outer  magnetosphere,  and 
approximated  by  Knott  (1972),  as  described  in  Sec.  2.2;  see  also 
Prokopenko  and  Laframboise  (1977)  and  Laframboise  and  Prokopenko  (1978) . 

The  ion  temperatures  used  are  111.6  eV  and  2.43  keV,  respectively. 

These  values  were  obtained  by  integrating  the  electron  velocity  distrib¬ 
utions  to  find  Ngra  ,  equating  Nj„,  to  the  result,  then  assuming  that  the 
ions  were  Maxwellian  and  that  the  ratio  of  ion  to  electron  random  fluxes 
was  0.025.  This  procedure  differs  from  that  used  by  Knott  (1972)  and 
in  Secs.  2.1  -  2.3  in  which  an  ion-to-electron  random  flux  ratio  of 
0.025  and  an  ion  temperature  of  1  keV  were  assumed  simultaneously, 
thereby  violating  ambient  charge  neutrality  in  general.  The  correspond¬ 
ing  electron  mean  energies  are  270  eV  and  8.78  keV.  The  method  used  for- 
calculating  electron  currents  is  described  in  Sec.  2.2.  We  see  that  Sj 
effects  become  important  at  smaller  S^  values  in  "quiet"  magnetospher ic 
conditions.  The  ratio  of  ion  to  electron  mean  energies  implied  by  the 
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above  data  is  also  larger  in  "quiet"  conditions,  corresponding  to  the 
dependence  of  effects  on  e  noted  in  Fig.  2.15.  The  "quiet"  and 
"disturbed"  distributions  also  differ  substantially  in  shape  (Knott,  1972, 
Figs.  1  and  2b).  The  onset  of  "significant"  drift  effects  (i.e.  floating 
potential  changes  £  10%)  is  seen  to  occur  at  values  as  low  as  0.1, 

depending  on  conditions.  It  occurs  at  lower  values  in  the  presence  of 

the  "quiet"  distribution  than  in  any  of  the  other  cases  shown  in  Figs.  2.1 
and  2.16.  In  Figs.  2.15  and  2.16,  negative  floating  potentials  for  =  1 
are  in  most  cases  about  twice  as  large  as  the  corresponding  potentials 
for  nondrifting  situations. 
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3.  MULTIPLE  FLOATING  POTENTIALS,  AND  THE  "THRESHOLD  MATERIAL 

TEMPERATURE  FOR  HIGH-VOLTAGE  CHARGING" 

3.1  INTRODUCTION 

The  high-voltage  charging  behaviour  of  spacecraft  surfaces,  especially 
in  outer-magnetospheric  plasma  conditions,  displays  a  variety  of  unexpect¬ 
edly  complex  features. 

These  features  are  most  evident  in  the  absence  of  photoemission  (as 
on  shaded  surfaces  of  a  spacecraft) .  One  of  them  is  the  existence  of 
multiple  roots  (zeros)  in  the  current-voltage  characteristic  of  various 
spacecraft  materials  exposed  to  certain  kinds  of  ambient  plasma 
environments.  An  example  of  such  a  current-voltage  characteristic  was 
shown  in  Fig.  2.5.  In  this  illustration,  only  the  right-  and  left-hand 
roots,  which  are  located  at  +1.9  and  -4100  volts,  respectively,  represent 
stable  floating  surface  potentials,  because  the  centre  root  is  an  unstable 
one,  in  the  sense  that  any  voltage  excursion  from  the  indicated  value 
(-500V)  would  result  in  a  net  current  of  a  sign  which  would  cause  the 
voltage  excursion  to  increase,  ultimately  driving  the  voltage  to  the  right- 
or  left-hand  roots. 

The  possibility  of  such  triple-root  situations  was  first  proposed  by 
Whipple  (1965,  pp.  4-7).  Prokopenko  and  Laframboise  (1977,  1980)  calculated 
current-voltage  characteristics  of  various  surface  materials  in 
outer-magnetospheric  (including  geostationary-orbit)  plasma  environments, 
and  found  numerous  examples  in  which  triple-root  characteristics  were 
actually  obtained.  Sanders  and  Inouye  (1979)  did  calculations  to  examine 
the  ranges  of  conditions  in  which  such  characteristics  would  occur. 

Desse  (1981)  examined  the  mechanisms  underlying  them.  Meyer-Vernet 
(1982)  showed  that  they  may  also  occur  on  dust  grains  in  space,  such 
as  those  in  Saturn's  rings.  It  is  now  generally  recognized  that  in 
triple-root  situations,  the  stable  floating  potential  near  space 
potential  is  the  result  primarily  of  a  current  balance  between  incident 
"primary"  electrons  and  emitted  (secondary  and  backscattered)  electrons, 
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with  incident  ion  current  making  only  a  minor  contribution,  while  at  the 
more  negative  stable  potential,  the  current  balance  is  primarily  between 
incident  ion  and  electron  currents,  even  though  in  this  case  also, 
both  of  these  may  be  substantially  modified  by  secondary  or  backscattered 
electron  emission. 

Another  feature  of  the  high-voltage  charging  phenomenon  is  the 
occurrence  of  "sensitivity"  effects  in  the  numerical  prediction  of 
spacecraft  potentials  (Stannard  et  al,  1981) ,  in  which  relatively 
small  changes  in  assumed  surface  properties  or  ambient  conditions  can 
cause  large  changes  in  spacecraft  floating  potentials.  Evidently,  this 
phenomenon  may  frustrate  attempts  to  make  reliable  predictions  of 
spacecraft  charging,  and  it  is  important  to  identify  the  parameter 
ranges  in  which  such  sensitivity  effects  occur. 

This  phenomenon  is  closely  related  to  that  of  "threshold"  effects, 
both  predicted  (Stannard  et  al,  1981)  ,  and  observed  (Gussenhoven  and 
Mullen,  1982),  in  which  no  high-voltage  charging  occurs  over  a  large 
range  of  environmental  or  surface  conditions,  but  a  small  further  change 
in  conditions  then  results  in  a  large  change  in  surface  potential  from 
a  small  value  (relative  to  space)  to  a  value  typically  several  kilovolts 
negative. 

Another  closely-related  effect  is  that  of  sudden  large  changes  in 
surface  potential  in  response  to  relatively  slow  temporal  changes  in 
ambient  plasma  conditions  (Sec.  2.3).  This  phenomenon  was  predicted 
by  Prokopenko  and  Laframboise  (1980)  and  Besse  (1981),  and  subsequently 
observed  both  on  the  SCATHA  (P78-2)  satellite  and  in  numerical  simula¬ 
tions  made  using  the  NASA  Charging  Analyzer  Program  (NASCAP)  (Schnuelle 
et  al,  1981;  Stannard  et  al,  1982). 

In  Secs.  3.2  and  3.3,  we  introduce  the  concept  of  threshold 
temperature  as  a  property  of  a  spacecraft  surface  material,  and  we  show 
that  all  of  the  above-mentioned  phenomena  are  unified  and  explained  by 
this  concept. 


A  separate  phenomenon,  which  often  controls  the  differential 
charging  of  other  surfaces,  including  sunlit  ones,  relative  to  the 
most  highly-charged  surface,  is  the  "barrier"  effect;  we  discuss 
this  in  Sec.  4.5. 


3.2  THE  THRESHOLD-TEMPERATURE  PROPERTY. 

A  typical  secondary-electron  yield  curve  is  shown  in  Fig.  3.1(a). 
For  most  commonly-used  spacecraft  surface  materials,  there  exists  a 
region  of  this  yield  curve  in  which  more  than  one  secondary  is 
produced  on  average  per  primary.  This  generally  occurs  for  incident 
electron  kinetic  energies  of  a  few  hundred  eV.  In  Fig.  3.1(b), 
energy-differential  incident-electron  flux  (particle  current  density) 
curves  are  shown  for  Maxwellian  electron  velocity  dis cributions  at  two 
representative  values  of  electron  temperature  Tg.  In  the  example  shown, 
the  peak  of  the  lower-temperature  curve  is  at  almost  the  same  energy  as 
that  of  the  secondary  yield  curve.  In  this  situation,  there  is  a  large 
production  of  secondaries;  in  fact,  the  total  secondary  flux,  which  is 
given  by  an  integral  involving  the  product  of  these  two  functions 
[Eq.  (2.10);  Prokopenko  and  Laframboise  (1977,  1980,  Eq.  lofj  ,  will  be 
greater  than  the  incident  primary  flux  if  the  maximum  secondary  yield 
6max  Per  primary  is  greater  than  about  1.16  (Besse,  1981,  Fig.  2).  In 
contrast,  the  peak  of  the  higher-temperature  curve  does  not  coincide 
closely  with  that  of  the  secondary-emission  curve,  and  in  this  case, 
the  total  secondary  f lux  will  be  less  than  the  incident  flux.  Evidently, 
a  critical  value  of  Te  must  exist,  intermediate  between  the  two  values 
indicated,  at  which  emitted  flux  would  exactly  balance  incident  flux 
(H.I.  Cohen,  1982,  private  communication).  (There  will  also  be  another 
such  critical  temperature,  below  the  peak  of  the  secondary  yield  curve, 
but  this  is  not  of  importance  here.) 
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Maxwellian  ambient  distributions  also  have  the  special  property 
that  if  they  are  retarded  by  a  repelling  (negative)  surface  potential, 
the  distribution  of  particle  kinetic  energies  reaching  the  surface  is 
independent  of  the  value  of  this  potential.  Therefore,  for  a  Maxwellian 
ambient  distribution,  the  preceding  conclusions  have  a  special  property: 
they  are  independent  of  spacecraft  surface  potential  (Besse,  1981; 

H.I.  Cohen,  private  communication,  1982)  as  long  as  this  potential  is 
negative  (with  respect  to  space).  Therefore,  if  the  ambient  electrons 
were  Maxwellian  at  the  critical  temperature,  incoming  and  outgoing  fluxes 
would  balance  each  other  for  all  negative  values  of  surface  potential, 
and  the  surface  then  "would  not  know  at  what  potential  to  float",  i.e. 
the  surface  potential  would  become  indeterminate ,  except  for  the 
(relatively  small)  current  contribution  from  ambient  ions.  It  is 
therefore  evident  that  very  large  (negative)  increases  in  floating 
potential  will  result  for  very  small  increases  in  ambient  electron 
temperature  in  the  neighbourhood  of  this  critical  value,  which  is  a 
property  of  the  surface  material  only .  We  will  therefore  refer  to  this 
critical  value  as  the  threshold  material  temperature  T*  for  high-voltage 
charging.  In  terms  of  this  property,  the  first  four  effects  mentioned 
in  Sec.  3.1  can  be  immediately  explained,  as  follows. 

(1)  Triple-root  current-voltage  characteristics  have  a  simple  explanation 
if  the  ambient  electron  velocity  distribution  can  be  approximated  by  a 
double  Maxwellian.  Such  an  approximation,  although  empirically-based, 
is  often  a  very  good  one  (Garrett  and  DeForest,  1979  ;  Garrett  et  al, 

1981) .  In  this  case,  a  characteristic  will  have  three  roots  if  (i) 
the  temperature  T^  of  one  Maxwellian  is  less  than  T*,  but  the  other  one 
T2  is  greater  than  T* ,  and  (ii)  the  total  emitted  electron  (secondary 
and  backscattered)  flux  at  space  potential  is  greater  than  the  incident 
flux. 

This  can  be  proven  as  follows.  The  roots  of  the  current-voltage 
characteristic  are  given  by  the  zeros  of  the  function: 

J=J.-J+J+J  (3.1) 

net  1  e  sec  scat 
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where  J^,  Je,  •Jsec  and  JScat  are  particle  current  densities  (fluxes) 

for  incident  (ambient)  ions  and  electrons,  secondary  electrons  and 

backscattered  electrons,  respectively.  Except  at  relatively  large 

negative  surface  potentials  <j>g  relative  to  space,  is  relatively  small, 

and  will  be  neglected  in  what  follows.  For  $  <  0,  we  then  have,  in 

s 

this  approximation: 

=  (J  ,  +J  .  ,  -  J  .  )  exp(eij>  /kTi  ) 

net  sec , 1  scat,l  e,l  s  1 


+  (J  _+J  .  _  -  J  .,)  exp(e<£  /kT  ) 

sec, 2  scat, 2  e,2  ^  Ys  2 


Tnet,l  exp(eVkTl>  +Jnet,2 


(3.2) 


where  e  >  0  is  the  elementary  charge,  k  is  Boltzmann's  constant,  and  all 
double-subscripted  J  are  space-potential  values.  A  triple-root  character¬ 
istic  must  have  an  unstable  root,  i.e.  a  value  of  d>  such  that 

s 

(a)  J  =  0,  and  (b)  dJ  /d<j >  >0.  This  can  happen  only  for  $  <0 

net  net  s  s 

because  Jsec  and  Jscat  both  decrease  rapidly  at  positive  potentials  (an 
exception  to  this,  applicable  at  very  small  electron  temperatures,  has 
been  found  by  Meyer-Vernet  (1982)).  Condition  (a)  requires  that  J 

net,l 

and  Jnet  2  have  opposite  signs,  i.e.  T*  is  between  Tjand  T2 .  Condition  (b) 

implies  that  J  >0  for  all  (f>  values  between  this  root  and  zero;  this 
net  s 

in  turn  implies  that  J  +J  >0.  This  completes  the  proof  of  (i) 

net,l  net, 2 

and  (ii).  Even  though  this  proof  is  only  approximate  for  real  velocity 
distributions,  it  will  still  be  generally  valid  in  terms  of  "temperatures" 

_  O 

related  in  the  usual  way  (E  = kT)  to  the  mean  energies  obtained  from 

a  double-Maxwellian  fit.  Meyer-Vernet  (1982)  has  shown  that  triple 

roots  can  also  occur  with  Maxwellian  electrons,  when  the  electron 

temperature  is  less  than  the  "temperature"  of  emission  of 

secondary  electrons.  The  unstable  root  then  o  urs  at  a  positive 

rather  than  negative  value  of  f  . 

s 
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(2)  For  T(or  2E/3k)  close  to  T* ,  most  current-voltage  characteristics 
will  have  both  a  very  small  value  and  small  slope  over  a  large  range 

of  potentials,  and  the  floating  potential (s)  will  then  be  subject  to 
large  changes  when  only  small  changes  in  conditions  occur.  This  explains 
"sensitivity"  effects. 

(3)  For  T  slightly  less  than  T*,  J  +  J  >  J  if  i  <  0,  and  the 

sec  scat  e  p 

floating  potential  will  generally  be  slightly  positive.  For  T  slightly 

greater  than  T*,  J  +  J  < J  and  the  floating  potential  will 
sec  scat  e 

generally  be  very  negative.  Clearly  T*  is  the  temperature  at  which 
"threshold"  effects  may  be  expected. 

(4)  For  a  distribution  which  is  (nearly)  Maxwellian  and  has  T%T*, 
small  (or  gradual)  changes  in  ambient  conditions  can  cause  the  sign  of 
Jgec + Jscat ~ Je  to  change,  resulting  in  large,  sudden  changes  in 
floating  potential.  For  a  distribution  which  may  not  be  near-Maxwellian 
but  which  leads  to  a  triple-root  characteristic,  changes  in  ambient 
conditions  may  cause  two  of  the  three  roots  to  coalesce  and  disappear, 
also  producing  large,  sudden  potential  changes  (Sec.  2.3;  Prokopenko 
and  Laframboise ,  1980;  Besse,  1981;  Meyer-Vernet ,  1982). 
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.  3  CAI-.Cl:LrtA  iv.,\  ■  ji'  i  HKhSii'-jLU  i  hMPr.KAi  URLS  ;  if 1 £!  \  A  , 

We  have  calculated  threshold-temperature  values  (Table  2)  : or  a 

variety  of  spacecraft  surface  materials;  a  listing  or  our  computer 

program  for  doing  this  appears  in  Appendix  B.  In  order  to  do  this, 

we  have  calculate  J  +  J  -  J  as  a  function  of  T  for  Maxwellian 

sec  scat  e 

incident  distributions,  and  searched  numerically  for  the  value  T*  at 
which  this  function  changes  from  positive  to  negative  js  I  increases. 

For  ambient  electrons  normally  incident  to  a  surface,  we  have 
used  the  secondary  and  backscattered  flux  expressions  given  by  Prokopenko 
and  Laframboise  (1977,  1980),  together  with  data  given  by  Dekker  (1958), 
Ha^nenberg  and  Brauer  (1959,  1962),  Gibbons  (1966),  Willis  and  Skinner 
(1973),  Katz  et  al  (1977,  p.  38),  Schnuelle  et  al  (1979),  Leung  et  al 
(1981),  and  Krainsky  et  al  (1981). 

The  increased  yields  for  electrons  incident  at  other  angles 
have  an  important  influence  on  our  results  (last  three  columns  oi  Table  2) 
For  both  secondary  (Dekker,  1958;  Salehi  and  Flinn,  1981;  Krainsky  et 
al ,  1981)  and  backscattered  (Darlington  and  Cosslet.t,  1972;  Krainsky 
et  al,  1981)  electrons,  it  is  found  experimentally  that  the  dependence 
of  yield  (average  number  of  emitted  electrons  per  incident  electron) 

5(E,9)  on  angle  of  incidence  9  relative  to  the  surface  normal  can  be 
usefully  approximated  by  a  relation  of  the  form 

>  n  !?((•:, 6)  =  in  ‘S(E,0)  +  P  (1-cos  )  .  (3.3) 

For  secondary  emission,  the  coefficient  3  appears  to  depend 
primarily  ~.i  d/K.  ,  where  Emax  is  the  energy  at  which  d  is  largest 
when  ,'1  -  o°.  For  backscattered  emission,  ?  appears  to  depend  most 
strongly  on  the  atomic  number  Z  of  the  surface  material,  and  only  weakly 
on  incident  energy  E.  Also,  available  information  on  E  dependence  is 
fragmentary,  and  in  any  case,  secondary  emission  predominates  over 
backscattered  emission  at  smaller  values  of  E.  For  these  reasons,  we 
have  ignored  the  E  dependence. 
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The  depenaence  given  by  Eq.  (3.3)  has  the  special  advantage  that 
:or  any  isotropic  ambient  velocity  distribution,  the  integration  over 
angle  in  the  emitted  flux  expression  can  be  done  analytically.  In  this 
case,  we  have: 

J  or  J  =  f f  i  v  d^v 

sec  scat  J  n 


=  j  j  j  f  ( E )  5  ( E ,  0  )  (v  cos  0 )  ('hsin  3  dv  dC-  d b) 

_  r  3,  f'-iir  fi  (E)  (1-cos  0)  . 

=  2cj  r  (E)  o  (e  ,  0)  vJdv  J  e  cos  (!  sin  :  a3 

"°  o  (3.4) 

where  ( v , 3 , c )  are  spherical  coordinates  in  velocity  space  with  polar 
axis  normal  to  the  surface,  f  -  d  N/d3r  d3v  is  the  velocity  distribution 
of  ambient  electrons,  E = dmv2 ,  and  vn  is  the  normal  component  of 
incident  electron  velocity. 

The  integral  over  9  yields  [exp(B) -S-l] /32 ,  which  has  the  value 

S  when  3  =0.  After  3  is  specified  as  a  function  of  E,  multiplication 

of  3  (E,0)  by  the  factor  ?  =  ( 2/B? ) [exp (3 ) -3-l]  then  corrects  S(E,0)  to 

include  angle-dependence  of  the  secondary  or  backscattered  yield  [see 

also  Whipple,  1981,  Eq.  (3.11)]  .  To  obtain  the  resulting  dependence 

of  5  +5  on  E ,  we  require  that  E  and  &  for  normal- 

sec  scat  max  max 

incidence  secondary  yield  be  specified,  together  with  Z.  Our  complete 
yield  algorithm  then  is: 


C=  in (E/E  ) ; 

max 


0.2755  (E  -  1.658)  -  /[o . 2755 ( £-1 . 658)]  2+0.0228  . 


sec 


7.37Z 


=  ( 2/8  2)  [exp  (8  )  -  3  -  l]  • 

c  sec  u  sec  J  * 

-0.56875  „ 


(3.5) 


(2/8  2)[exD(8  J 

scat  •-  scat 


scat  scat 

where  the  above  expressions  for  B 
fits  to  the  data  of  Dekker  (1958),  Darlington  and  Cosslett  (197  2)  , 
Salehi  and  Flinn  (1981),  and  Krainsky  et  al  (1981).  Finally: 


l] 


and  B 
sec  scat 


scat 

have  been  obtained  by 


5  (E) 


exp (-2 


(3.6) 


3  2 


=  ~7 . 44 

max 


E _ 

E 

max 


max 


sec 


scat 


where  the  factors  multiplying  T  and  T  are,  respectively,  the 

sec  scat  * 

secondary-yield  curve  of  Sternglass  (1954a),  and  an  empirical  factor 

given  by  Eq.  2.9  (See  also  Prokopenko  and  Laframboise,  1980,  Eq .  (9)), 

in  which  the  coefficients  A,  B,  and  C  are  functions  of  Z  obtained  from 

the  data  of  Sternglass  (1954b)  and  Palluel  (1947).  These  coefficients 

are  also  displayed  in  Table  2.  J_„  +J  is  then  given  by  2r  times 

sec  scat 

the  integral  over  v  in  (3.4)  with  f  replaced  by  the  Maxwellian 
distribution  corresponding  to  temperature  T,  or  more  generally,  by 
Eqs .  (2.10)  -  (2.14).  Jg  =  n^  (kT/27rme)  ,  i.e.  the  usual  random 

flux  for  a  Maxwellian  distribution  (where  n  is  ambient  electron 

00 

density  and  m^  is  electron  mass),  or  more  generally,  is  given  by  Eqs. 
(2.1)  -  (2.3)  . 


The  resulting  threshold  temperatures  T*  (labeled  "TC 3" )  appear  in  the 

last  column  of  Table  1.  Corresponding  values  of  T*  for  simplified  forms 

of  5(E)  as  indicated  (labeled  "TCI"  and  "TC2" )  appear  in  the  two  adjacent 

columns.  It  is  clear  from  these  results  that  angle-dependence  of 

6  and  5  has  an  important  effect  on  values  of  T*.  The  values 

S6c  scat 

labeled  "TCI"  can  also  be  inferred  from  Fig.  2  of  Besse  (1981). 

Clearly,  those  surface  materials  having  the  largest  values  of  T*  will 

be  the  "most  resistant"  to  high-voltage  charging  (leaving  aside  the  effects 

of  material  conductivity)  because  the  ambient  environment  will  exceed 

their  threshold  temperature  the  least  often.  From  this  viewpoint,  and 

using  the  data  of  Table  1,  MgFi  is  the  "mo: t  resistant"  material,  followed 

by  activated  beryllium-copper,  gold,  and  NASCAP  ' BOOMAT ' , a  spatially-averaged 

representation  of  a  composite  surface  consisting  of  kapton  partly  covered 

with  platinum  strips,  used  on  the  SCATHA  satellite  (Schnuelle  et  al,  1979). 

The  zero  entries  for  T*  in  Table  1  are  those  for  which  J  +  J  <  J 

sec  scat  e 

at  all  values  of  T. 


Our  discussion  so  far  has  been  almost  completely  concerned  with 
"absolute"  or  "overall"  surface  charging,  and  has  been  based  only  on 
calculations  of  local  currents  to  and  from  surfaces.  Calculations  of  this 
type  are  usually  sufficent  to  determine  the  floating  potential  of  the 
most  highly  (usually  negatively)  charged  portion  of  a  spacecraft  surface, 
which  is  usually  in  a  shaded  or  partly-shaded  region  of  the  spacecraft. 
However,  the  most  damaging  effects  of  high-voltage  charging  are  "differential" 
effects  involving  large  potential  differences  between  adjacent  parts  of 
a  spacecraft.  These  effects  are  frequently  dominated  by  non-local 
phenomena,  an  example  of  which  we  present  in  Sec.  4.6. 


4.  CYLVIA:  A  TWO-DIMENSIuNAL  CHARGING  SIMULATION  FOR  CYLINDRICAL 
SPACECRAFT  CROSS-SECTIONS  WITH  ANGLE-DEPENDENCE. 

4.1  INTRODUCTION:  THE  QUASISTATIC  ITERATION  METHOD 

We  have  constructed  a  numerical  simulation  program  called  CYLVIA 
(CYLinder  Voltages  in  Ionosphere  and  Above)  which  combines  the  following 
features : 

a)  infinite  circular  cylindrical  geometry  with  angle-dependence. 

We  have  chosen  this  geometry  for  the  following  reasons:  A  realistic 
model  must  be  at  least  two-dimensional  because  the  asymmetry  between 
sunlit  and  shaded  surfaces,  or  between  surfaces  with  large  and  small 
secondary-electron  emission  currents,  is  a  key  feature  of  the  differential 
charging  problem.  Cylindrical  geometry  is  the  simplest  two-dimensional 
geometry,  and  it  is  also  a  useful  approximation  to  many  spacecraft  shapes, 
including  the  D^CS  and  SCATHA  mainframes,  which  are  finite  circular 
cylinders.  Effects  of  finite  cylinder  length  (three-dimensionality) 

on  sheath  potential  profiles,  which  tend  to  cause  a  more  rapid  decrease 
of  potential  with  radius,  can  be  approximated  by  using  a  modified  form  of 
Poisson's  equation  (Sec.  4.3). 

b)  Quasistatic  time-dependent  iteration  (Laframboise  and  Prokopenko, 
1977).  In  this  procedure,  sheath  potential  changes  during  particle 
transit  times  are  ignored.  This  leads  to  the  following  iteration  scheme: 
a  distribution  of  surface  potentials  is  chosen.  Poisson's  equation  is 
then  solved  to  provide  a  radius-  and  angle-dependent  static  sheath 
potential  [see  (c)  below] .  Particle  orbits  are  then  followed  numeric¬ 
ally  in  this  potential,  yielding  net  surface  charging  rate  as  a  function 
of  surface  position.  Using  this  information,  the  surface  potentials  are 
updated.  This  process  is  repeated  until  a  steady-state  floating 
condition  is  obtained  or  in  order  to  follow  temporal  changes  in  external 
conditions,  such  as  spacecraft  rotation  or  eclipse  passage. 

c)  use  of  simplified  space-charge  density  expressi  (Sec.  4.2; 
Laframboise  and  Prokopenko,  1977),  rather  than  numerical  orbit-following. 
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in  solving  Poisson's  equation  for  sheath  potentials.  Approximations  of 
this  type  are  good  ones  for  geostationary-orbit  situations,  in  which  the 
Debye  length  of  the  ambient  plasma  is  generally  large  enough  that 
space-charge  effects  are  almost  negligible.  They  also  yield  an  important 
saving  of  computer  time. 

Features  (b)  and  (c)  are  now  also  usea  in  the  NASCAP  (Katz  et  al, 

1977,  1979)  simulation  program. 

A  listing  of  CYLVIA  appears  in  Appendices  C  and  D.  The  numerical 
solution  of  Poisson's  equation  in  CYLVIA  calculations  uses  the  subroutines 
POIS ,  POISGN,  POINIT,  TRID,  TRIDP ,  and  NCHECK  written  by  Swarztrauber  and 
Sweet  (1975) . 

4.2  USE  OF  APPROXIMATE  SPACE-CHARGE  DENSITY  EXPRESSIONS 

At  geostationary-orbit  altitude,  the  Debye  length  ad  for  ambient 
particles  is  usually  10  m,  so  for  satellites  of  ordinary  size,  effects 
of  ambient  space  charge  on  sheath  potentials  will  be  relatively  small. 

Any  reasonably  realistic  approximation  of  this  space  charge  can  therefore 
be  expected  to  produce  only  negligible  errors  in  solving  Poisson's 
equation  for  sheath  potentials.  Furthermore,  large  savings  in  computer 
time  can  be  expected  to  result  if  one  can  avoid  exact  density  calculations 
involving  numerical  orbit-following.  In  calculations  using  CYLVIA,  only 
a  relatively  small  amount  of  orbit-following  is  done,  in  order  to  calculate 
surface  currents  (Sec.  4.4). 

A  more  significant  space-charge  effect  near  the  spacecraft  may  be 
caused  by  emitted  photoelectrons  or  secondary  electrons  (Soop,  1972; 
Schrdder,  1973),  because  of  their  relatively  low  velocities  compared  to 
ambient  values.  However,  effects  of  these  are  likely  also  to  be  small 
enough  that  any  reasonably  realistic  approximations  for  their  densities 
will  yield  good  accuracy  (Lafon,  1976) .  Such  approximations  must 
ultimately  be  verified  by  comparison  with  exact  calculations.  It  is 
advantageous  if  such  approximations  depend  on  local  potential  only 
(rather  than  potentials  at  many  locations),  together  with  a  relatively 
small  number  of  other  parameters,  such  as  spacecraft  potentials  and 
potential  barrier  heights  and  locations.  Laframboise  and  Prokopenko 
(1977)  have  developed  such  an  approximation.  Here  we  develop  three 
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approximate  expressions  for  ambient  space-charge  density  ]Eqs .  (4.1)- 

(4.3)],  based  on  the  use  of  exact  density  expressions  developed  for 
collisionless,  Maxwellian  particles  in  the  presence  of  obstacle-free 
potential  wells  of  arbitrary  shape  by  Laframboise  and  Parker  (1973).  The 
appropriate  expression  for  our  purposes  is  the  result  given  by  their 
Eq.  (2)  for  three-dimensional  wells.  This  is  true  even  for  an  "infinite", 
that  is,  very  long  cylindrical  spacecraft  geometry,  because  of  particle 
entry  at  the  ends  of  such  a  geometry.  For  definiteness,  we  consider 
a  negative  well  given  by  ip(x,y,z)  -  0,  with  as  x2  +  y2  +  z2-*-00,  where  1 

is  electric  potential.  If  only  ambient  particles  are  considered,  Poisson's 
equation  is: 


nz  i  s 


(N  -N.) 


(4.1) 


where  e  is  magnitude  of  unit  electron  charge,  cQ  is  permittivity  of  space, 

and  Ne,  Nj_  are  electron  and  ion  number  densities,  respectively.  Since 

positive  ions  are  the  attracted  species  in  this  well,  we  use  Eq .  (2)  of 

Laframboise  and  Parker  (1973)  for  ion  density,  and  the  usual  Boltzmann 

,  t 

factor  for  electron  density.  If  A  =  (e  kT  /e^N  )  ,  N  is  electron  or 

’  De  o  e  *  '» 

ion  density  far  from  the  spacecraft,  L  is  a  characteristic  spacecraft 
v 

length,  V  =  lV  ,  X  =  e  VkTe <  0,  k  is  Boltzmann's  constant  and  T  is 
temperature,  Eq.  (4.1)  becomes: 

\2 


9 


De 


~  [l-xyT/^g  (-X  Te/T.)1/2] 


(4.2) 


where  g(s)  =  h  /"tt  exp  (s2)erfc(s)  =  exp(s2)  J  exp(-t2)dt.  An  efficient 

s 

method  for  calculating  erfc(s)  has  been  given  by  Shepherd  and  Laframboise 
(1981) . 


The  important  feature  of  Eq.  (4.2)  for  our  purposes  is  that  its 
right-hand  side  is  a  function  of  y  only.  For  small  y ,  Eq.  (4.2)  reduces 


to: 


V2X  =  (1  +  Te/T.)(L/A  )2  x 


3/2 


(4.3) 


where  terms  of  order  y  and  higher  have  been  ignored.  The  linear  form 
of  (4.3)  permits  the  use  of  direct  Poisson-solvers  for  finding  y.  Another 
simplified  form  can  be  obtained  by  rederiving  Eq.  (4.2)  with  monoenergetic 
instead  of  Maxwellian  ions  assumed.  The  appropriate  monoenergetic  velocity 
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distribution  (Chen,  1965;  Laf ramboise ,  1966,  p.  14)  is: 

,  -  d3X  6(E-E1) 

’  4,  (2m.Ei)l/2  (4.4) 

where  =  4kT^/7r  and  m^  is  ion  mass;  this  distribution  duplicates  the 
ambient  number  density  and  flux  values  of  a  Maxwellian  at  temperature  T^. 
Rederivation  of  (2)  using  this  distribution  yields  the  computationally 
simpler  form: 

(4.5) 

If  any  regions  exist  where  X>0,  the  roles  of  ions  and  electrons 
are  interchanged,  and  Eqs .  (4.2)  -  (4.5)  must  be  modified  accordingly. 

The  essential  approximation  contained  in  Eqs.  (4.2)  -  (4.5)  is  the 
neglect  of  orbit  depletion  due  to  intersection  with  t)  ?  spacecraft.  The 
densities  of  ambient  ions  and  electrons  will  therefore  both  be  over¬ 
estimated  near  the  spacecraft  in  these  results.  As  long  as  the  spacecraft 
is  at  least  moderately  smaller  than  A  ,  the  effects  of  this  overestimate 
will  be  small.  The  attracted-species  density  will  be  overestimated  by 
the  greater  amount  for  reasons  involving  the  curvatures  of  attracted 
and  repelled  particle  orbits.  The  sheath  profiles  predicted  by  (4.2)  or 
(4.5)  will  therefore  be  steeper  than  real  profiles,  if  electron  emission 
effects  are  ignored.  Laframboise  and  Prokopenko  (1977,  Secs.  2.4.2  and 
2.4.3)  have  also  discussed  space-charge  density  approximations  based  on 
symmetric  potentials  and  on  equivalent  potential  wells,  for  ambient 
and  emitted  electrons. 

4.3  APPROXIMATE  INCLUSION  OF  FINITE-CYLINDER  -  LENGTH  (THREE-DIMENSIONAL) 

EFFECTS  IN  POISSON'S  EQUATION. 

Effects  of  finite  spacecraft  length  on  sheath  potential  profiles  can 
be  included  in  either  of  two  approximate  ways  which  lead  to  modifications 
of  the  two-dimensional  Poisson  equation  to  be  solved.  We  include  here 
a  description  of  these  methods.  The  first  method  is  derived  by  pretend¬ 
ing  that  the  circular  inner  boundary  ot  the  computation  grid,  which 
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represents  the  spacecraft  surface,  is  no  longer  a  cross-section  of  an 
infinite  cylinder,  but  rather  is  a  cross-section  through  the  equatorial 
plane  of  a  prolate  spheroid  of  polar-to-equatorial  axis  ratio  L  —  1. 

We  also  assume  that  the  sheath  potential  is  (for  some  unspecified  reason) 
independent  of  the  latitude  coordinate  perpendicular  to  this  plane. 


This  leads  to  a  modified  Poisson  equation  of  the  form 

.  n  S2X  ,  _  3x  &aX  sinh2  E  /  Rs  \a  , 

tanh  3  E  — =r  +  tanh  E  —  +  T73T  =  — : — Ta> —  (  )  ( n  *  n-:  ) 

^  5  3?  S0  sinha?s  V  xD  /  e  1  ,4.o) 

where  \  =  e<f>/kTe,  (  is  a  radial  coordinate  in  the  equatorial  plane  and 
is  related  to  nondimensional  radius  r  =  R/Rs,  defined  in  the  same  plane, 
by  the  relation 

r  =  (L2  -  1)^  sinh  5  »  =  [(!->  +  13 /(L  -  1)  ] ,  S  is  angular  coordinate  in 

the  same  plane,  Rs  is  spacecraft  radius,  Ac  is  Debye  length,  and  ne  and 
n^  are  the  nondimensional  electron  and  ion  densities  Ne/Ne^  and  Njy'Nj^, 
where  N  is  ambient  density  of  either  species.  Use  of  Eq.  (4.6)  in 
place  of  the  usual  polar-coordinate  Poisson  equation  would  result  in 
sheath  potential  profiles  which  became  increasingly  steeper  as  L 
decreased,  thus  allowing  for  approximate  estimates  of  sheath  potentials 
around  finite  cylinders.  The  limiting  case  L=1  would  correspond  to  an 
assumed  spherical  geometry  without  latitude  dependence;  the  limit 
leads  to  recovery  of  infinite  cylindrical  geometry. 

The  transformation  s  =  P.n  coth  4E  leads  to  the  alternative  form 


1 

cosh2  p  ds‘ 


X  ,  3a  X  s inha  E  /  Rs  \a  ,  _  \ 

“+  ^  )  <ne-ni) 


which  contains  no  first-order  terms.  For  small  £,  s  varies  logarithmically 
with  r;  for  large  6,  s  varies  as  r-1 . 

The  second  method  is  drrived  by  first  writing  the  nondimensional 
Poisson  equation  for  cylindrical  coordinates,  which  has  the  form 


d2X  ,  l  ?)X  1  DaX  ,  d2X  _  /  Rs  \a  ,  . 

bs  *  7  +  V*  W  +  5?  '  (  ;  <n«  ‘  "i>  • 


We  then  assume  that  -;(r,0,z)  is  periodic  in  z,  such  that  values  of  \ 
repeat  after  nondimensional  distance  2.’  parallel  to  the  z  axis.  In 
particular,  we  assume  that  \  (r,  ,1  )  =  some  given  dependence  (r,0), 
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and  that  x(r»9»0)  =Xo(r,0)  to  be  found.  We  further  assume  that 
3x/3z  =  0  at  z  =  0,  z  =  *4  ,  z  =  ±24 ,  etc,  and  that  only  the  lowest 
Fourier  component  of  the  z  dependence  of  x  is  present.  Then 


x(r  »9  ,z)  =  ^(r.e)*  Xj,(r,e)]+  ^[^(r.e)  -  Xjg(r,0)]  cos(  y  )  (49) 
and,  at  z=0,  we  have 
3s  Xr,  ,  /  tt  \2 

ai5-  =  h\i)  '  Xo(r.e)]  M.1C 

The  Poisson  equation  for  x  (r,0)  now  becomes 


d3Xo  ,  1 


3Xo  ,  1 


a2x0 

se3 


%  (t)S  v( )2 < v "!>-'( 7 )>xi<r,9>  o-111 


We  see  that  in  this  Poisson  equation,  effects  of  z-dependence  are 
represented  by  a  homogeneous  "Helmholtz"  term  and  a  fictitious  space 
charge  contribution.  The  z-dependence  incorporated  into  this  equation 
could  represent  approximately  the  effects  on  sheath  potentials  of  finite 
spacecraft  length  and/or  features  such  as  conductive  circumferential 
bands.  Equations  (4.7)  and  (4.11)  are  both  solvable  by  standard  methods; 
both  are  linear.  Both  contain  only  two  (radius  and  angle)  independent 
variables . 


4.4  ORBIT  INTEGRATION  AND  CURRENT  CALCULATION 

CYLVIA  uses  a  form  of  the  particle  orbit  equations  in  which  particle 
total  energy  is  explicitly  conserved.  This  formulation  was  adopted 
because  of  a  difficulty  which  arose  when  using  more  standard  methods  to 
integrate  photoelectron  orbits.  Accumulation  of  numerical  errors  was 
occasionally  found  to  change  the  total  energy  of  an  orbit  by  amounts 
large  compared  to  the  assumed  thermal  energy  of  emission  (1.5V), 
especially  near  points  where  orbits  were  "reflected"  by  a  potential 
barrier;  this  in  turn  produced  large  errors  in  calculations  of  photo¬ 
electron  currents  reimpacting  spacecraft  surfaces. 

In  order  to  derive  the  orbit  equations,  we  consider  the  motion  of 
a  particle  in  a  plane.  We  let  (r,0)  and  (y,  v  )  represent  its  position  and 
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velocity  components  in  polar  coordinates  (Fig.  4.1).  We  let  s  represent 
arc  length  along  its  orbit,  and  u  and  n  represent  unit  tangent  and  unit 
normal  vectors  at  a  point  on  the  orbit,  the  latter  directed  toward  its 
local  centre  of  curvature.  We  let  p  represent  its  local  radius  of 
curvature.  We  let  q,m,  and  E  represent  particle  charge,  mass,  and 
total  energy,  and  i(r,9)  represent  electric  potential.  The  equation 
of  motion  m  dv/dt  =  -q7i}>  reduces  to: 


dv  *  v*  *  q  /  ■»  ci  »  oc{)  \ 

•—  u  +  —  n  =  -1  (  -n  —  -  u  — 

ds  c  m  \  Cn  ds  ) 


(4.12) 


We  equate  respective  components  of  Eq.  (4.12)  and  use  the  relations 
ds  =  .:d  (a  +  9)  ,  dr  =  cos(a)ds,  and  r  d0  = sin (a) ds .  We  then  obtain  the 
orbit  equations  in  the  following  form: 


da- 

ds 


bt 

S0 


s  in  iy 


deb  \ 
Sr  ) 


s  in  a 
r 


—  =  cos  a 
ds 


d9  _  s in  o 
ds  r 


(4.13) 


v2  =  |  [e  -  q^(r,0)] 

This  system  is  reduced  from  fourth  to  third  order  because  the  last 
equation  appears  in  integrated  form.  At  points  where  particle  reflect¬ 
ion  from  potential  barriers  produces  cusps  or  near-cusps  in  an  orbit 
(da/ds  becomes  singular  or  large) ,  a  segment  of  the  orbit  is  replaced 
by  a  parabolic  arc. 

We  illustrate  the  current  calculation  method  used  by  CYLVIA  by 

first  considering  photoelectrons  which  arrive  at  a  point  on  the  surface 

whose  normal  makes  an  angle  0  with  the  sunward  direction,  each  of  them 

having  originated  at  some  other  surface  location  6  (Fig.  4.2a)  and 

o 

forced  to  return  to  the  surface  by  a  potential  barrier  which  surrounds 
the  spacecraft.  Their  current  density  at  the  surface  location  given  by 
9  is : 


pV  =  00  pUFTT 

JO)  =  J  ?(v,uj)(v  sinuu)  (v  dv  duu) 

v  =  0  ou=0 


(4.14) 


where  v  =  (v^+vq2)*5  and  w  =  tan-^(vr/vQ)  are  polar  coordinates  in 
incident  velocity  space  at  the  surface  locations,  f =  d2N/dvrdVg  is  the 
two-dimensional  velocity  distribution  of  photoelectrons,  and  N  is 
their  number  density.  By  Liouville's  theorem,  f  is  constant  along  a 
particle  orbit.  Assuming  that  photoelectrons  are  emitted  with  a 
Maxwellian  distribution  corresponding  to  a  temperature  T,  their  emission 


flux  Jph(0o)  is  related  to  f  as  follows: 


f  =  JPh(8o)  (  kT  ) 


3/2  -mv02/2kT 

e 


(4.15) 


If  the  sunlit  side  of  the  spacecraft  has  uniform  material  properties, 
then 

Jph Oo)  =  Jph (0)  cos  0Q  .  We  introduce  dimensionless  variables  as  follows: 

X=  qdj/kT;  u  =  v (m/2kT)  2  (4.16) 

Since  ^mv2  +  =  ^mv  2  +  qcfi  ,  (4.15)  and  (4.14)  become: 


"£ -i?  w(s)  « 


Xo_X  -u“ 

e  e 


(4.17) 


J(0)  =  ~ 


f>U=”  -,,2  f^11 

du  u2  e  I 


u=0 


ou=0 


r  *o'X  1 

dy;  s  in  (ju  Jph(0o)e  j 


(4.18) 


The  factor  in  square  parentheses  in  (4.18)  is  evaluated  for  each 

u  and  to  by  integrating  the  corresponding  photoelectron  orbit  backward 

to  its  origin  to  find  9  and  X  •  To  do  the  intearations  in  (4.18)  we 

o  o 

set  up  a  polar-coordinate  grid  in  velocity  space  at  the  surface 

location  0,  as  shown  in  fig.  4.2b,  where  we  have  defined  un=-ur,  ut = -Ug . 

We  approximate  F(u,ui)  ~  ( 2//n )  J  (0  )  exp(x_-X)  in  each  cell 

ph  o  w 

u^  -  u  _  u^+^,  -  to  £  u)  ^  by  (A  +  Bu)  (C  +  Dto)  where  A,  .  .  .  ,  D  can  be 

determined  if  the  values  of  F  at  its  four  corners  are  found,  again  by 


integrating  orbits  backward.  Equation  (4.18)  then  becomes: 
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J(9)  = 


ui+l 

S.  J  c 

1»J  Ui 


du  u2  e  U  (A± j  +  B^u) 


/j+l 


J  djj  sin  <u  (0.^  +  D^uj)  ,  (4.19) 

■JJi 


a  form  in  which  all  integrals  can  be  evaluated  analytically.  This 
method  for  evaluating  J(0)  is  essentially  equivalent  to  the  "inside-out" 
method  of  Parker  and  Whipple  (1967).  The  factor  exp(xQ-X)  in  F(u,m) 
may  vary  strongly  within  individual  cells.  The  potential  barrier  which 
surrounds  a  spacecraft  is  always  of  finite  height,  permitting  some 
photoelectrons  to  escape  and  ambient  electrons  to  reach  it.  This  means 
that  the  integration  in  (4.19)  must  be  performed  over  two  regions  of 
velocity  space,  labelled  I  and  II  in  Fig.  4.2b,  containing  photoelectrons 
(and  secondary  and  backscattered  electrons),  and  ambient  electrons, 
respectively.  In  general,  f  will  contain  a  discontinuity  at  the 
boundary  between  I  and  II  (Whipple,  1976)  which  can  produce  large 
errors  in  the  evaluation  of  J(0).  The  integration  method  used  in  CYLVIA 
treats  these  discontinuities  explicity,  using  bisection  searches  to  find 
points  such  as  those  circled  in  Fig.  4.2b.  If  the  ambient  electron 
velocity  distribution  is  isotropic,  then  F  in  region  II  will  be  independent 
of  w. 
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4.5  RESULTS  AND  DISCUSSION 

Figure  4.3  shows  a  CYLVIA  calculation  of  equipotential  contours 
surrounding  a  cylindrical  spacecraft  cross-section  whose  surface  consists 
of  two  independently  floating  conductive  sectors,  the  smaller  of  which  is 
shaded  and  subtends  an  angle  of  90°.  In  this  calculation  the  ambient 
ion  and  electron  velocity  distributions  are  double  Maxwellians  with  the 
following  properties: 

N.,  =1  cm-3  N  =1  cm“3 

ll  el 

Tii  =  20  eV  Tel  =  500  eV 

Ni2  =1  cm-3  Nfi2  =  1  cm-2 

Ti2  =  104  eV  Te2  =  5000  eV 

The  photoelectron  charge  flux  eJp^  is  45  x  10"®A/m2  at  normal  sunlight 
incidence.  Tpj1=1.5  eV.  Secondary  and  backscattered  electron  fluxes 
are  assumed  zero.  Ambient  ion  and  electron  and  photoelectron  currents 
are  calculated  using  numerical  orbit-following  as  described  in  Sec.  4.4. 
The  computation  grid  in  (r,9)  contains  65  x  48  intervals.  In  this  and 
subsequent  calculations,  the  computation  grid  in  (u  ,ou)  contains  8 x  16 
intervals  for  each  Maxwellian  component  of  each  particle  species,  apart 
from  bisection  searches  (Sec.  4.4)  which  give  finer  resolution.  Linear 
space  charge  is  assumed  [sec.  4.2;  Laframboise  and  Prokopenko,  1977, 

Eq.  (3)]  .  The  above-mentioned  plasma  parameters  imply  an  ambient  Debye 
length  of  32.5  meters;  spacecraft  radius  rs  is  1  meter.  The  outer 
boundary  of  the  computation  grid  is  at  e^rs  %  148rs.  The  most  noteworthy 
feature  of  Fig.  4.3  is  a  negative  saddle-point  potential  barrier  which 
surrounds  the  larger  sector,  and  whose  height  varies  from  about  2  volts 
at  the  sunward  point  to  several  hundred  volts  near  the  edges  of  this 
sector.  The  potential  of  the  270°  sector  (-2.265  kV)  is  controlled  by 
blocking  of  electron  escape  caused  by  this  barrier;  this  mechanism  is 
discussed  in  more  detail  in  Sec.  4.6.  In  Sec.  6.5,  surface  photocurrents 
obtained  from  this  calculation  are  compared  with  values  given  by  an 
analytic  approximation.  In  this  and  subsequent  calculations,  calculated 
surface  potentials  are  all  within  10  volts  of  the  values  at  which  the 
residual  currents  change  sign. 


Figure  4.4  shows  a  CYLVIA  calculation  of  equipotent ial  contours 
around  a  spacecraft  cross-section  divided  into  four  90°  sectors,  two 
covered  with  aluminum  and  two  with  quartz.  The  aluminum  sectors  are 
electrically  connected  to  each  other.  In  this  calculation  the  ambient 
velocity  distributions  are  single  Maxwellians  with  = Ne =  3cm-3  and 

=  Ta  =  1  keV.  Photoelectrcn  fluxes  at  normal  sunlight  incidence  are  42 
and  32  A/rrr  for  aluminum  and  quartz,  respectively.  Tn-  =  1.5  eV  for  both 
Secondary  and  backscattered  fluxes  are  assumed  zero.  The  computation 
grid  in  (r,G)  contains  65x16  intervals.  The  outer  boundary  of  this 
grid  is  at  e^ ^  1097  spacecraft  radii.  The  above-mentioned  plasma 
parameters  imply  an  ambient  Debye  length  of  96  meters;  spacecraft 
radius  rs  is  1  meter.  As  in  Fig.  4.3,  a  saddle-point  barrier  is 
present  on  the  sunward  side  of  the  spacecraft  (see  Sec.  4.6) ,  and  control 
the  potential  of  the  sunlit  quartz  sector  and  the  two  aluminum  sectors. 

In  a  separate  calculation,  which  is  not  shown,  we  included  secondary 
and  backscattered  electron  emission;  the  calculated  surface  potentials 
then  were  all  between  0  and  +10V.  This  result  can  be  readily  interpreted 
in  terms  of  the  threshold  material  temperatures  for  high-voltage  charging 
defined  in  Sec.  3  and  listed  in  Table  2.  Although  the  value  of  Tg  for 
this  case  is  greater  than  the  threshold  temperature  of  aluminum  (Table  2) 
the  aluminum  sectors  are  partly  sunlit,  and  photoemit  enough  to  balance 
their  ambient  electron  collection  current.  The  threshold  temperature  of 
quartz  is  greater  than  Te,  so  secondary  and  backscattered  electron 
emission  from  these  sectors  is  therefore  enough  to  balance  their  ambient 
electron  collection  current.  Thus  in  this  case,  no  negative  charging 
occurs  on  any  sector.  If  Te  were  made  substantially  larger  than  the 
threshold  temperature  of  quartz  (Table  2) ,  then  high-voltage  negative 
charging  of  the  shaded  quartz  sector  would  again  occur. 

In  Fig.  4.5,  the  same  spacecraft  cross-section  as  in  Fig.  4.4  has 
been  rotated  by  90°  relative  to  the  sunward  direction.  In  this  case 
the  most  negative  potentials  are  those  on  the  shaded  regions  of  the 
quartz  sectors,  which  float  separately  from  the  sunlit  regions  because 
the  quartz  is  nonconduct ive .  In  this  situation  it  is  possible  that 


45 


breakdown  of  orbit-limitation  of  the  collection  of  ambient  ions  (Sec.  2.1) 
could  occur,  especially  near  the  edges  of  these  shaded  regions,  and 
this  wol'1  restrict  ion  collection  and  cause  their  floating  potentials  to 
become  even  more  negative  than  we  have  calculated,  but  the  rather  coarse 
0-interval  of  our  computational  grid  has  prevented  us  from  resolving  this 
question  in  this  calculation. 

Also  in  Fig.  4.5,  we  have  this  time  a  saddle-point  barrier  on  the 
shaded  side  of  the  spacecraft;  if  the  calculation  had  included  secondary 
and  backscattered  electrons,  this  barrier  would  have  controlled  their 
escape.  In  this  case  a  negative  current  flows  from  the  shaded  to  the 
sunlit  aluminum  sector,  so  the  sunlit  sector  floats  at  a  much  more 
negative  potential  than  it  would  otherwise. 

Figure  4.6  shows  the  distribution  of  surface  potentials  correspond¬ 
ing  to  the  calculations  of  Figs.  4.4  and  4.5,  together  with  the  calculated 
surface  potential  distribution  of  a  completely  nonconductive  ("quartz" 
but  with  secondary  and  backscattered  electron  emission  not  included) 
cylinder  which  is  placed  in  the  same  environment. 

Figure  4.7  shows  again  the  same  surface  potential  distribution  for 
a  nonconductive  cylinder  as  in  Fig.  4.6,  together  with  another  distrib¬ 
ution  for  conditions  which  are  unchanged  except  that  the  outer  boundary 
rB  of  the  calculation  is  moved  inward  to  12  spacecraft  radii  rs.  A  third 
calculation  is  shown,  which  has  been  done  not  using  CYLVIA  but  using  a 
program  called  TWOD ,  which  combines  the  physical  assumptions  of  the 
NASCAP  program  with  circular  cylindrical  geometry  (M.  Mandell,  Systems, 
Science  and  Software  Inc.,  private  communication).  Except  as  noted,  the 
physical  situations  treated  in  the  CYLVIA  and  TWOD  calculations  are  the 
same;  in  both  cases  rB =  12  rs ,  zero  secondary  and  backscattered  emission 
is  assumed,  and  a  16-noint  angular  discretization  is  used.  In  the  TWOD 
calculation,  zero  space  charge  is  assumed,  but  since  Ap  =  96  rg  in  the 
CYLVIA  calculation,  the  comparison  shown  is  probably  unaffected  by  this 


difference.  In  the  TWOD  calculation,  pnotoelectron  temperature  and 
nori..al-incidence  flux  are  2  eV  and  20  tiA/rn^  ,  whereas  for  CYLVIA,  the 
corresponding  parameters  are  1.5  eV  and  45. .A/m'  . 

We  see  that  rough  agreement  exists  between  the  CYLVIA  and  the  TWOD 
calculations.  Either  our  higher  photoemission  flux,  or  the  rather  coarse 
angular  discretization  used  in  both  calculations,  may  account  for  the 
differences;  we  have  not  yet  investigated  this  question  with  further 
calculations .  Even  though  the  barrier  which  surrounds  the  sunlit  side 
of  the  cylinder  prevents  almost  all  photoelectron  escape  in  the  (two) 
regions  60°<  9  <  90°  where  the  largest  disagreement  occurs,  our  larger 
assumed  flux  permits  greater  surface  migration  of  photoelectrons 
(Sec.  6),  and  the  resulting  surface  current  will  drain  excess  negative 
charge  from  these  regions  (to  an  extent  which  we  have  so  far  not  determined). 
The  large  difference  between  the  two  CYLVIA  calculations  for  rB  =  12rs 
and  rQ  =  e7  rs  is  symptomatic  of  the  great  sensitivity  which  two-dimensional 
Laplace-potential  (or  nearly  Laplace-potential,  as  in  our  case)  cal¬ 
culations  have  to  outer-boundary  position  generally.  On  the  other  hand, 
tests  with  CYLVIA  have  indicated  that  rB^,e5  rs  is  sufficient  to  overcome 
this  sensitivity,  especially  when  a  small  amount  of  linear  (or  other) 
space  charge  is  included,  as  we  have  done. 

4.6  THE  BARRIER  EFFECT 

As  we  have  seen  (Secs.  2  and  3),  charging  calculations  based  on 
local-current-balance  considerations  are  usually  sufficient  to  determine 
the  floating  potential  of  the  most  highly  (usually  negatively)  charged 
portion  of  a  spacecraft  surface,  which  is  usually  in  a  shaded  or 
partly-shaded  region  of  the  spacecraft.  However,  the  most  damaging 
effects  of  high-voltage  charging  are  "differential"  effects  involving 
large  potential  differences  between  adjacent  parts  of  a  spacecraft. 

These  effects  are  frequently  dominated  by  non-local  phenomena,  several 
examples  of  which  occurred  in  Sec.  4.5,  and  which  we  now  examine  in 
more  detail. 
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The  most  important  among  these  phenomena  is  the  "barrier"  effect, 
which  often  controls  the  differential  charging  of  other  surfaces,  includ¬ 
ing  sunlit  ones,  relative  to  the  most  highly-charged  surface.  In  the 
"barrier"  effect,  a  strong  dipole  or  higher  moment  of  the  spacecraft's 
potential  distribution  produces  "saddle-point"  barriers  over  less-highly- 
charged  portions  of  the  spacecraft,  limiting  photoemitted  or  other  electron 
escape  from  these  portions  and  causing  them  to  charge  more  negatively 
than  otherwise.  Space-charge  effects  are  normally  not  important  in  the 
formation  of  such  barriers.  Their  existence,  and  the  resulting  implic¬ 
ations  for  differential  charging,  were  first  predicted  by  Fahleson 
(1973).  Whipple  (1976)  presented  evidence  for  the  existence  of  such  a 
barrier  on  the  ATS-6  satellite.  Other  properties  and  consequences  of 
these  barriers  were  discussed  by  Prokopenko  and  Laframboise  (1977,1980) 
and  Laframboise  and  Prokopenko  (1977).  Katz  et  al  (1979)  performed  a 
numerical  simulation  which  showed  the  formation  of  such  a  barrier  near 
a  polyhedral  "quasispherical"  model  satellite,  together  with  the  result¬ 
ing  effects  for  differential  charging.  Besse  and  Rubin  (1980)  developed 
an  analytical  treatment  of  the  barrier  effect  for  a  spherical  satellite. 
Purvis  (1982)  presented  a  variety  of  NASCAP  numerical  simulations  to 
illustrate  the  prevalence  of  the  barrier  effect  in  high-voltage  charging 
situations.  Katz  and  Mandell  (1982)  examined  mechanisms  underlying  the 
barrier  effect,  called  by  them  the  "field-reversal"  effect,  and  in  one 
particular  application,  the  "snapover"  effect.  In  this  Section,  we 
present  results  of  a  numerical  simulation  for  circular  cylindrical 
geometry,  which  emphasize  the  importance  of  the  barrier  effect  for 
differential  charging. 

Using  CYLVIA  (Secs.  4.1 -4.5),  we  have  calculated  the  equilibrium 
charging  state  of  a  cylindrical  spacecraft  shape  with  a  nonconductive 
surface  in  a  model  geostationary-orbit  plasma  with  sunlight  incident 
normally  to  the  cylinder  axis  on  one  side.  Figure  4.8  shows  the  results 
of  a  CYLVIA  calculation  in  which  we  have  deliberately  made  an  important 
oversimplification:  we  have  calculated  the  surface  potential  distribu¬ 

tion  on  the  basis  of  local  current  balance  only.  Because  sunlight 
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strikes  only  one  side  of  the  spacecraft,  photoelectrons  are  emitted 
only  from  this  side.  In  this  example,  the  escaping  photoe lectron  flux 
from  most  of  the  sunlit  side  is  sufficient  to  balance  the  ambient 
electron  flux,  so  the  sunlit  side  of  the  spacecraft  floats  at  a  potential 
of  5.1V,  while  the  shaded  side  floats  at  -2.96  kV.  As  a  result,  the 
spacecraft  potential  has  a  strong  dipole  moment,  resulting  in  the  existence 
of  a  potential  barrier  which  surrounds  its  sunlit  side.  The  height  of 
this  barrier  is  -0.61  kV,  while  the  assumed  photoelectron  emission 
temperature  is  only  1.5  eV,  so  almost  all  photoelectrons  reflect  from 
the  barrier  and  return  to  the  spacecraft,  an  effect  which  we  have  not 
taken  into  account  in  this  calculation. 

In  Fig.  4.9  we  have  included  this  effect,  and  have  allowed  CYLVIA 
to  converge  to  the  resulting  more-realistic  steady  state.  As  a  result 
of  photoelectron  reflection  from  the  barrier,  the  sunlit  side  of  the 
spacecraft  has  charged  to  a  more  negative  potential.  As  a  result, 
the  barrier  height  in  the  sunward  direction  has  been  reduced  to  -0.2V. 

A  substantial  fraction  of  the  photo-electrons  now  escape  over  the  barrier, 
permitting  the  local  currents  to  come  into  balance.  A  further  indication 
of  this  is  that  the  saddle  point  has  moved  inward  from  5.9  spacecraft 
radii  almost  to  the  spacecraft  surface:  such  an  inward  movement  was  first 
predicted  by  Fahleson  (1973) ,  and  is  evident  also  in  the  results  of 
Katz  et  al  (1979,  Figs.  17-21)  and  Besse  and  Rubin  (1980) . 

The  resulting  changes  in  the  potential  profile  along  the  spacecraft- 
sun  line  are  shown  in  Fig.  4.10.  The  inward  motion  of  the  saddle  point 
is  again  evident.  Most  importantly,  the  amount  of  differential  charging 
between  the  sunlit  and  shaded  sides  has  been  reduced  dramatically,  from 
2.96  kV  to  1.19  kV.  Potential-barrier  formation  evidently  exerts  a 
controlling  effect  on  the  differential  charging.  This  is  increasingly 
recognized  as  being  the  normal  condition  in  differential-charging 
situations  (Purvis,  1982;  Katz  and  Mandell,  1982).  Because  the 
capacitances  between  various  parts  of  a  spacecraft  are  generally  much 
larger  than  the  free-space  capacitance  of  the  entire  spacecraft,  the 
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charging  times  for  differential  charging  are  usually  much  larger  than 
those  for  absolute  charging  (Purvis,  1982). 

It  is  clear  from  our  example  and  also  the  examples  presented  in 
Sec.  4.5  (and  also  another  example  to  be  presented  in  Sec.  5.2),  that  the 
formation  of  potential  barriers  is  very  geometry-dependent.  This  is 
the  case  because  in  geostationary-orbit  conditions,  space-charge  shield¬ 
ing  around  spacecraft  of  "ordinary"  size  (up  to  a  few  tens  of  meters)  is 
a  small  effect  (since  the  ambient  Debye  length  is  usually  at  least 
this  large) ,  and  electric  fields  produced  by  charging  on  one  part  of  a 
spacecraft  surface  readily  surround  other  parts  of  it  ,  even  if  these  are 
on  the  other  side  of  the  spacecraft.  Detailed  simulations  which 
include  realistic  representation  of  spacecraft  geometry  therefore 
appear  likely  to  remain  important  for  studies  of  spacecraft  charging 
whenever  the  possibility  of  barrier  effects  exists. 

In  Fig.  4.11  we  show  another  CYLVIA  calculation  which  is  discussed 
in  detail  in  Sec.  5. 


5.  XYCIC:  A  SIMULATION  FOR  GENERAL  PLANAR-SYMMETRIC  (TWO-DIMENSIONAL) 

SPACECRAFT  GEOMETRIES 

5.1  INTRODUCTION 

We  have  developed  and  partly  tested  a  proyram  called  XYCIC  _(X,Y) 
Charging  Investigation  CodeJ ,  which  is  designed  to  permit  simulation  of 
a  wider  class  of  two-dimensional  geometries  than  does  CYLVIA.  XYCIC  is 
designed  to  treat  any  spacecraft  cross-section  which  takes  the  form  of 
one  or  more  polygons,  each  of  which  joins  a  set  of  unit  lattice  points 
in  a  Cartesian  plane  with  lines  having  slopes  of  0,  t's,  il»  -2,  or  ~o. 

Thus  a  circular  cylinder  can  be  approximated  by  either  an  octagon  or  a 
hexadecagon  (16-sided  polygon).  At  present,  the  geometric  features,  or 
"object-generation"  portion  of  XYCIC,  and  its  Poisson-solver ,  have  been 
completed  and  tested,  and  program  segments  incorporating  the  same  plasma 
simulation  features  as  in  CYLVIA  (Secs.  4.1 -4.4)  have  been  written  and 
partly  tested.  A  listing  of  the  present  version  of  XYCIC  appears  in 
Appendix  E. 

As  noted  in  connection  with  Fig.  4.7,  plasma  simulations  in  two 
dimensions  generally  involve  strong  sensitivity  to  boundary  effects, 
unless  space-charge  shielding  intervenes,  an  effect  which  frequently 
does  not  occur  at  the  large  Debye  lengths  typical  of  geostationary-orbit 
conditions.  In  such  cases,  as  we  have  seen,  it  may  become  necessary  to 
place  the  outer  boundaries  of  computational  domains  very  far  from  a 
(simulated)  spacecraft.  In  order  to  accomplish  this  in  XYCIC  without  the 
penalty  of  excessive  numbers  of  grid  points,  we  have  constructed  its 
computational  domain  as  a  set  of  nested  square  grids,  each  of  which  is 
centered  in  the  next  larger  one,  and  such  that  in  crossing  the  boundary 
from  each  to  the  next  larger  one,  the  grid  interval  is  doubled.  A 
similar  succession  of  nested  sub-domains  is  used  in  three  dimensions  in 
NASCAP  (Katz  et  al,  1977).  On  the  boundary  of  the  outermost  domain, 
the  potential  is  assumed  to  be  zero. 
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5.2  PRELIMINARY  RESULTS 

Figure  5.1  shows  a  XYCIC  calculation  of  equipotential  contours 
around  an  octagonal  approximation  to  the  circular  cylindrical  geometry 
of  Fig.  4.11.  As  in  the  case  of  Fig.  4.11,  the  surface  potentials  in 
Fig.  5.1  have  the  imposed  values  shown,  rather  than  self-consistent 
values.  A  total  of  ?  nested  grids  have  been  used  in  this  calculation, 
with  the  outermost  grid  boundary  located  at  27.4  naif-widths  of  the 
simulated  object. 

This  calculation,  and  the  CYLVIA  calculation  shown  in  Fig.  4.11, 
have  been  done  for  comparison  with  a  NASCAP  calculation  (Olsen,  1980, 
p.  190;  Olsen  and  Whipple,  1980,  Fig.  16)  of  potentials  around  an 
octagonal  -  cylinder  "model  object"  which  approximates  the  ATS-5 
satellite.  The  feature  of  greatest  interest  in  both  sets  of  calculations 
is  the  potentials  of  the  four  saddle  points  which  occur  outside  the  50  V 
sections  of  the  spacecraft  surface,  which  represent  conductive  areas 
from  which  electron  emission  occurred  on  the  real  spacecraft.  Comparison 
of  our  results.  Figs.  4.11  and  5.1,  with  each  other  indicates  a  satis¬ 
factory  level  of  agreement  between  them  with  regard  to  the  potentials  and 
locations  of  the  saddle  points.  This  is  the  case  even  though  the  CYLVIA 
calculation  contains  a  small  amount  of  linear  space  charge,  while  the 
XYCIC  calculation  contains  none. 

Comparisci  of  either  result  with  that  of  Olsen  and  Whipple  indicates 
that  our  saddle  points  are  located  about  twice  as  far  from  the  spacecraft 
surface  as  theirs,  and  have  larger  negative  potentials  (-56  to  -59  V) 
than  theirs  (-53  V) .  These  differences  undoubtedly  result  from  the 
fact  that  our  simulation  is  two-dimensional  and  theirs  is  three-dimensional, 
even  though  our  geometry  in  Fig.  5.1  is  identical  with  that  of  their 
cross-section.  Incorporation  of  three-dimensionality  into  our  calculation, 
using  the  approximate  method  described  in  Sec.  4.3,  would  probably  bring 
our  results  into  much  closer  agreement  with  theirs,  but  we  have  not  yet 
done  this.  In  modifying  our  calculation  in  this  fashion,  it  would 
probably  be  advantageous  to  perform  our  calculation  as  the  superposition 


5? 


of  two  modified  calculations  of  the  type  described  by  Fqs .  (4.8)  to  (4.11) . 

One  of  these  would  have  surface  potentials  given  by  the  (uniform)  average 
(taken  over  surface  position)  of  those  in  our  Figures,  and  the  character¬ 
istic  length  >  used  in  it  would  be  that  of  the  ATS-5  model  object.  The 
other  would  have  surface  potentials  given  by  the  departures  from  this 
average,  and  its  (much  smaller)  value  of  Z  would  be  that  of  the  con¬ 
ductive  patches  on  the  ATS-5  object.  The  disturbance  potential  of  the 
patches  would  then  decrease  more  quickly  with  radius,  in  better  agreement 
with  the  Olsen  and  Whipple  calculation. 

Figure  5.2  shows  a  XYCIC  prediction  of  equipotentials  around  a 
composite  "object"  which  represents  a  cross-section  through  a  hypothetical 
spacecraf t-body-and-antenna  combination.  Again  the  surface  potential 
values  are  given  ones;  in  this  case  they  are  hypothetical.  Other  data 
pertinent  to  this  calculation  are  given  in  the  figure  caption.  If 
self-consistent  calculations  are  made  in  the  future  with  a  geometry  similar 
to  the  one  shown,  the  "cutout"  in  the  spacecraft  body,  and  the  region 
between  the  spacecraft  body  and  the  antenna,  would  both  become  examples 
of  the  "shaded  cavities"  discussed  in  connection  with  Fig.  2.8.  It  would 
then  be  possible  to  verify  the  prediction,  made  in  Sec.  2.3,  that 
electrically-isolated  surfaces  inside  such  cavities  may  charge  to 
larger  negative  potentials  than  those  elsewhere  on  the  spacecraft.  It 
would  also  be  possible  to  investigate  the  relative  importance  of  the  two 
mechanisms,  discussed  in  Sec.  2.3,  which  may  produce  such  charging. 
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6.  AN  ANALYTIC  CALCULATION  OF  SURFACE  PHOTOCURRENTS 

6.1  INTRODUCTION 

Photoelectron  migration  can  be  an  important  cause  of  surface  currents 
on  spacecraft  in  charging  situations.  Numerical  methods  of  calculating 
photoelectron  migration  involve  following  a  large  number  of  electron 
orbits  which  will  generally  be  short  (from  origin  to  impact  point)  and 
have  large  curvature.  Such  a  procedure  can  be  a  major  source  of 
expense  in  operating  a  simulation  program.  A  good  analytic  approx¬ 
imation  for  surface  photocurrent  can  therefore  be  of  great  value.  If 
photoelectron  migration  takes  place  over  a  curved  surface,  the 
sunlight  incidence  angle  will  vary  over  this  surface  and  therefore  so 
will  the  photoemission  flux.  On  the  other  hand,  if  the  normal  component 
of  electric  force  on  the  electrons  is  attractive  toward  the  surface  and 
is  large  enough,  the  total  distance  of  their  travel  along  the  surface 
will  be  short  enough  that  effects  of  surface  curvature  on  their  orbits 
can  be  neglected,  so  a  model  situation  involving  a  planar  surface  with 
a  photoemission  gradient  along  it  becomes  appropriate.  In  Section  6.2, 
we  perform  an  analytic  calculation  of  surface  photocurrent  for  such  a 
situation.  In  Section  6.3,  we  do  a  partial  numerical  verification  of 
our  result  by  comparing  it  with  a  numerical  result  obtained  using 
CYLVIA. 

6 . 2  THEORY 

In  this  Section,  we  derive  an  analytic  expression  for  the  surface 

current  density  of  photoelectron  migration  along  a  plane  surface  y=0, 

in  the  presence  of:  (a)  a  uniform  normal  electric  field  E^  >  0,  which 

causes  photoe loctrons  emitted  from  the  surface  to  reimpact  it  (Fig.  6.1) 

(b)  a  uniform  tangential  electric  field  Ex  (c)  a  uniform  photoemission 

current  density  gradient  j'K  ~  dJ  . /dx ,  so  that  the  photoemission  current 

rn  Pb 

per  unit  surface  area  is  =  J  ,  +  J  '  x.  This  photoemission 

Ph  ph,o  ph 

gradient,  or  "production  gradient",  would  ordinarily  lie  caused  by  a 
spatial  variation  in  the  illumination  of  the  surface.  We  also  assume 
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that  photoelectrons  are  emitted  with  a  Maxwellian  velocity  distribution 
corresponding  to  a  temperature  T  =  Tph.  In  the  presence  of  (a)  and  (b)  , 
all  photoelectron  orbits  are  parabolas  whose  axes  are  parallel  to  the 
resultant  electric  field  vector  (Fig.  6.1).  The  impact  location  x  for 
a  photoc l ectron  which  originates  at  xQ  with  emission  velocity  components 
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where  e  is  the  magnitude  of  unit  electronic  charge.  The  surface 
current  T  in  the  x  direction,  per  unit  distance  z  perpendicular  to  the 
(x,y)  plane,  can  now  be  found  by  integrating  over  position  and  velocity 
of  emission  to  find  the  number  of  photoelectrons  per  unit  z  and  unit 
time  which  cross  the  plane  x  =  0  in  the  direction  of  increasing  x,  then 
subtracting  the  corresponding  result  for  decreasing  x.  We  note  that 

A 

VyQ  f (x0,vXQ, VyQ)  is  the  number  of  photoelectrons  produced  per  unit 

surface  area  per  unit  vXQ  and  VyQ,  where  f  =  d2N/dvxdVy  is  the  two-dimensional 

velocity  distribution  of  photoelectrons  and  N  is  their  number  density. 

We  obtain: 


r  =  /  dx0  / dvxo  / dv  vyo  f(x0,  vxo,v  )H+(X0,V  ,v  ) 

-M  0 

00  00  a.  ^ 

-  /dx0  /dvXO  /dvyo  Vyo  f  lv  V  u  H 

0  0 

✓N  3/2 

i  f  =  (  1/2tt )  J  ,  (x)  (m/kT)  e 
ph 


(6.2) 


o  xo  yo 

Since  v  >0,  (6.1)  implies 
yo 

Equation  (6.2)  now  becomes: 

3 
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VXO' Vyo) 
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,2/2kT)  , 
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in  by 

(6.1)  is 
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to  0 

otherwise 
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c. 

=  /*T  [dvoVo2eXp  (-  IsH  Jd*  sinlt/i 


2mv0 

eE 


,  dx0<Jph,o  +  Jph  xQ) 
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We  define 

r  =  j 


,  kT/eE  ;  Y=  r/r  ; 
o  ph,o  y  o 


(6.5) 


% 


x  =  (eE^/kT)X;  j 


J  r  /J  . 

ph  o  ph,o 


u  =  v  Zm/2kT  . 
o 


Then  (6.4)  becomes: 
00 

2 


°°  2  1T 

Y=  —  /  du  u2  e  U  Jdtj/ 

At  o  o 


4u2  (cos  \p  sin2  <p  -cot  £  sin^i^) 

-  8u4  j  '  (cos2  ip  sin2  <p  -  2cos  tp  sin4  ip  cot  £  +  cot2  £  sin5tiO  j 
=  -  4cot £  -  j 1 (4  +  16cotz£)  . 


(6.6) 


Using  (6.3)  and  (6.5),  we  finally  obtain: 


4J  .  kT  E 
ph,o  ph  x 

eE.  2 


ph 


This  result  contains,  respectively,  a  potential-gradient  term,  a 
production-gradient  term,  and  a  cross-term.  The  effect  of  the  cross-term 
can  be  substantial:  we  see  that  it  enhances/ the  production-gradient  term 
five-fold  if  (Ex/Ey)2  =  1,  in  comparison  with  its  value  when  Ex  =  0.  This 
is  true  regardless  of  the  sign  of  Ex;  in  other  words,  surprisingly,  an 
"opposed"  electric  field  causes  the  same  enhancement  as  an  "aligned"  one. 

The  potential-gradient  term  is  twice  that  given  by  Eq.  (14)  of 
Pelizzari  and  Criswell  (1978);  this  can  be  seen  as  follows.  If  one 
assumes  that  photoelectrons  are  emitted  isotropically,  corresponding  to 
a  value  of  zero  for  the  parameter  b  in  their  Eqs .  (13)  and  (14) ,  then 
in  our  notation,  their  Eq.  (14)  is: 


-ef  = 


4J  (^kTnh)  E 
ph,o  pn  x 

3E„2 


(6.8) 


kT  2 

(  Ph) 

r  E  21' 

4+16(3) 

(6.7)  | 

v  eEy  > 

i 

where  our  quantities  -eT  ,  J  ,  ,  and  ^,kT_v,  are  the  same  as  their  J  , 

ph,o  l  Pn  a 

F,  and  (e),  respectively.  It  is  readily  seen  that  (6.7)  with  Jp^  =0 
gives  a  result  twice  as  large  as  (6.8),  as  just  mentioned.  To  see  why 
this  difference  occurs,  we  rederive  Pelizzari  and  Criswell's  result 
more  rigorously,  as  follows.  From  our  Eq.  (6.1),  the  contribution  of 
Ex  to  particle  displacement  in  the  x  direction  is 


-2mEv  v  2 
yo 


which  is  the  same  as  their  Eqs .  (9)  and  (11)  combined.  The  contribution 

due  to  v^o  in  (6.1)  averages  to  zero.  Now  the  surface  current  density  P 

per  unit  z  equals  the  integral  over  v^  and  v^q  of:  photoelectron 

production  rate  per  unit  v  and  v  per  unit  surface  area  in  the  (x,z) 

xo  yo 

plane,  times  distance  travelled  by  particles  of  a  given  v^q  before 
impact  [given  by  (6.9)J  .  This  production  rate  in  turn  equals  number 
per  unit  volume  per  unit  vXQ  and  VyQ,  times  the  value  of  VyQ . 

Therefore : 


r  =  /  dv  /  dv  f  v  f-  2rnIj*  vy°?  1 

'  VO  '  XO  VO  ^  ' 


(£)2(-S) 


v  °exp 


yo  yo 


mVyo_i 

i  ?kT  > 


Jph,o  kTph 


(6.10) 


in  agreement  with  our  result  [Eq.  (6.7)]  rather  than  that  of  Pelizzari 

and  Criswell.  The  reason  for  the  difference  evidently  involves  the  fact 

that  we  have  integrated  Eq.  (6.9)  over  VyQ  but  they  did  not.  Thus  we 

perform  an  integral  containing  vyQ3  [in  the  first  line  of  (6.10)3  ,  but 

their  procedure  involves  essentially  an  integral  containing  Vy^  (to 

evaluate  their  quantity  <E))  ,  times  a  separate  integral  containing  v 

(to  obtain  J  ,  from  f) .  Their  procedure  therefore  involves  the  use 
ph,o 

of  incorrect  moments  of  the  velocity  distribution  function  of  photoematted 
electrons . 
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6.3  COMPARISON  WITH  A  NUMERICAL  RESULT  FROM  CYLVIA 

Figure  4.3  shows  a  CYLVIA  calculation  of  equipotential  contours 
surrounding  a  cylindrical  spacecraft  cross-section  whose  surface  consists 
of  two  independently  floating  conductive  sectors,  the  smaller  of  which 
is  shaded  and  subtends  an  angle  of  90°.  Data  pertinent  to  this  calcu¬ 
lation  are  given  in  Sec.  4.5.  The  most  noteworthy  feature  of  Fig.  4.3 
is  a  negative  saddle-point  potential  barrier  which  surrounds  the 
larger  sector,  and  whose  height  varies  from  about  2  volts  at  the  sunward 
point  to  several  hundred  volts  near  the  edges  of  this  sector. 

The  resulting  normalized  current  densities  j.,j  ,  and  j  of 

■L  pn 

ambient  ions,  ambient  electrons ,  and  photoelectrons  are  shown  as  functions 
of  surface  position  in  Fig.  6.2.  We  have  made  a  separate  calculation  of 
jpjj  using  Eq.  (6.7)  with  the  tangential  electric  field  Ex  set  equal  to 
zero  since  the  spacecraft  surfaces  are  conductive.  To  use  (6.7),  we  note 
that  the  net  photoelectron  flux  out  of  the  surface  is  equal  to  the 
divergence  of  T  with  respect  to  surface  coordinates.  In  our  geometry, 
this  means  that 

T  =  T  -  t  -  ~_L  dp  _  J*_  _d_  r /kTph'?  d  Jpfr  >out~l 

ph.net  in-  ph ,  in  Jph,out  r  d8  r  3d0  L\eEr  /  d9  J 

s  b 

where 

edJph,out^d®  =  x  sin  ®  A/m3  ^  -  %rr  <  0  <  » 

and  the  radial  electric  field  Er  is  obtained  from  the  numerical  solution 
for  (f)(r,0)  used  to  construct  Fig.  4.3.  Net  photoelectron  currents 
obtained  in  this  way  are  shown  as  dashed  curves  in  Fig.  6.2.  We  see  that 
near  0  =  0°,  the  net  outward  photocurrent  is  badly  underestimated  by 
Eq.  (6.11)  since  the  potential  barrier  for  electrons  at  this  location  is 
not  much  higher  than  the  photoelectron  mean  thermal  energy,  so  a 
substantial  fraction  of  photoelectrons  escape,  and  this  is  not  allowed 
for  in  Eqs .  (6.7)  and  (6.11).  However,  in  the  interval  30°  £  0  1  90°, 
where  photoelectron  escape  is  negligible ,  agreement  between  Eq.  (6.11)  and 
the  numerical  result  is  much  better.  The  numerical  result  is  about  10% 
to  20%  above  that  given  by  (6.11);  the  most  important  reason  for  this 
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difference  is  probably  the  fact  that  the  tangential  electric  field, 
although  zero  at  the  spacecraft  surface,  is  nonzero  outside  it,  and  the 
form  of  the  cross- term  in  (6.7)  indicates  that  the  production- gradient 
current  [which  is  the  one  calculated  in  Eq .  (6.11)1  is  strongly  sensitive 
to  such  fields.  We  have  shown  the  photoelectron  current  as  decreasing 
to  zero  almost  discontinuously  beyond  0  =  90°,  because  the  average 
angular  distance  of  photoelectron  migration  in  the  electric  fields  at 
this  point  (E  =  0,  Er =  1824  V/m)  is  about  0.1°. 

Anotner  noteworthy  feature  of  Fig.  6.2  is  the  decrease  in  the  flux 
of  ambient  electrons  at  larger  9,  caused  by  the  increasing  height  of  the 
potential  barrier  as  one  moves  away  from  the  sunward  point  0=0°. 
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'■  FLUX  AND  DENSITY  CALCULATION  FOR  COLLISIONLESS  PARTICLE  ORBITS 

Calculation  of  current  density  deposited  on  a  surface  by  particle  orbits 
neighbouring  a  given  orbit  is  of  importance  in  several  contexts  related  to 
spacecraft  charging.  Examples  of  these  are:  calculation  of  current  density 
deposited  on  one  part  of  a  spacecraft  by  photoelectrons,  secondary  electrons, 
or  beams  of  charged  particles  emitted  from  another  point  on  it,  or  calculation 
of  ion  current  density  deposited  on  spacecraft  surfaces  in  the  presence  of 
either  a  (model)  infinite  or  a  large  but  finite  ion  speed  ratio.  In  this 
Section,  a  simple,  general  procedure  is  described  for  obtaining  such  information 
essentially  as  a  byproduct  of  a  numerical  orbit  calculation.  The  procedure  is 
based  on  a  perturbation  of  the  orbit  equations,  and  involves  finding  the  evolution 
along  an  orbit  of  the  axes  of  a  differential  tube  of  neighbouring  orbits.  The 
positions  of  these  axes  are  given  in  terms  of  a  set  of  integrals,  contributions 
to  which  are  collected  as  the  orbit  is  followed  numerically,  and  whose  inte¬ 
grands  involve  the  space  derivatives  3F^/Sx^  of  the  force  components  of  points 
along  it.  At  a  surface  impingement  point,  current  density  is  then  obtained  by 
projecting  the  cross-section  of  this  tube  onto  the  surface  tangent  plane.  The 

same  formulation  can  also  be  used  to  obtain  information  about  particle  number 
density  along  an  orbit. 

In  order  to  appreciate  the  usefulness  of  such  a  procedure  it  is  instructive 
to  compare  it  with  the  "standard"  procedure  which  one  would  normally  follow  in 
calculating  values  of  current  density  deposited  on  surfaces,  and  space  charge 
density,  of  collisionless  ions  with  negligible  thermal  motion  flowing  past  a 
collecting  object.  The  "standard"  procedure  is  to  numerically  follow  sets  of 
neighbouring,  initially-parallel  particle  orbits  inward  from  an  assumed 
unperturbed  region  far  from  the  object,  and  to  calculate  flux  and  density 
everywhere  between  any  two  orbits  by  finding  out  how  far  apart  they  have  become 
at  their  impingement  points  or  elsewhere.  This  method  has  inherent  difficulties: 
if  the  orbits  chosen  are  too  far  apart  initally,  an  orbit  may  eventually  go  off 
in  a  very  different  direction  than  the  orbit  next  to  it,  making  calculations  of 
flux  or  density  between  them  impossible  or  unrealistic.  On  the  other  hand, 
if  they  are  initially  too  close  together,  inaccuracies  in  calculating  either 
orbit  may  obscure  the  small  difference  which  one  is  trying  to  calculate. 
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Our  calculation  proceeds  as  follows.  The  equations  of  particle  motion 


2  ->  -+ 

d~x  =  F(x,t ) 

J  2  m 

dt 

which  is  equivalent  to: 


(7.1) 


d  Fi(x1,x2,x3,t) 


dt 


Integration  of  this  yields: 


(7.2) 


x^(t)  =  x^(0)  +  vi(0)t  + 


r-  ft 


dt' 


dt”  F.[xk(t"),  f]  (7.3) 


For  perturbed  orbits,  (7.2)  is  replaced  by: 


d2  (x.  +  ox  )  =  Fi  +  6F1 

dt2  1 


(7.4) 


Subtraction  of  (7.2)  from  (7.4)  yields: 


,2  *  5I\ 

d  ox.  =  _ i 

2  1  m 

dt 


(7.5) 


We  now  assume  that  perturbations  at  any  instant  are  small.  Then: 


<5F .  =  Z  3Fi  6x . 

1  j  3^7  1 

J 

2  3 

i.e.  we  ignore  (<5x^)  ’  (^xj )  >  etc. 


(7.6) 


Equations  (7.5)  and  (7.6)  now  imply,  after  integrating  twice: 

t  t' 


6xi(t)  =  1_ 
m 


r  t 


dt' 


3F  . 


dt"  Z  [x,  (t"),t"]6x.(t")  +  6x.  (0)  +  t  6v.(0) 
.  ox.  k  j  1  l 

-  J  J 

(7.7) 


where  the  nine  quantities  3F^/3x,  must  be  provided  along  the  unperturbed  orbit 
given  by  x,(t”)  and  t". 


r.  i 


By  noting  that  the  region  of  integration  in  (7.7)  is  a  triangle  in  (t',t") 
coordinates,  and  then  interchanging  the  order  of  integration,  we  can  change 
(7.7)  into  the  equivalent  form  (A.D.  Stauffer,  private  communication): 


5x.(t)  =  1 
m 


3F. 

dt"  (t-t")  Ej~[xk(t,,),t"]5x.(t")+fx1(0)+t«v.(0)  (7.8) 

j  '  j  J  1 


which  contains  only  a  single  integration. 


We  now  consider  a  monokinetic  particle  beam  having  initial  velocity 
(v^.O.O).  This  implies  a  zero  initial  perturbation  velocity:  Sv(0)  =  (0,0,0). 

We  choose  two  mutually  orthogonal  initial  perturbations  in  position: 

52x(0)  =  (0,1,0)  (7.9) 

63x(0)  =  (0,0,1) 

-V  —V 

Since  (7.8)  is  both  linear  and  homogeneous  in  5x,  final  values  of  52x  and  S^x 
are  proportional  to  initial  values,  as  one  expects  for  perturbation  quantities. 

Furthermore,  if  <5x(0)  =  a  S^x(O)  +  b  5^(0) ,  then  6x(t)  =  a  d^xCt)  + 
b  (?3x(t),  where  a  and  b  are  unchanged . 

We  now  consider  an  initially  circular  differential  tube  of  orbits  defined  by 
(7.9).  As  the  unperturbed  orbit  is  followed  numerically,  we  simultaneously 
calculate  S2X  and  ^x  using  (7.8).  At  the  impingement  point  of  the  orbit, 
we  project  these  onto  the  surface  tangent  plane  (Fig.  7.1).  The  area  of  the 
ellipse  thus  generated  is  inversely  proportional  to  the  current  density  deposited 
on  the  surface. 

For  a  monokinetic  beam,  this  gives  current  density  with  no  approximations. 

The  linearity  of  the  perturbation  equation  (7.8)  now  implies  that  all 
orbits  passing  through  A^(Fig.  7.1)  also  pass  through  A.  Therefore  the  total 
current  carried  by  the  tube  is  a  constant,  equal  to  A  j  =  7-  i  ,  where  j  is  the 
current  density  through  Aq. 
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The  area  A  is  given  Dy: 


^  S?x  x  6  x 
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TT_ 
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52X1 

52X2 

62X3 

63xi 

53X2 

63X3 

(7.10) 


■A.  /\  A. 

where  i,  j  ,  and  k  are  unit  vectors  along  the  coordinate  axes. 


The  current  density  at  the  surface  therefore  varies  inversely  as  the 
projected  tube  area  given  by: 
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(7.11) 


evaluated  at  the  orbit  impingement  point  on  the  surface,  where  n  is  a  unit 
vector  perpendicular  to  the  surface  tangentplane  (Fig,  7.1). 

The  current  density  at  the  surface  therefore  is: 


Vl  *2*2 

53X1  63X2 


62X3 

53X3 


surface 


(7.12) 


It  is  possible  for  the  plane  of  the  ellipse  to  be  perpendicular  to  the 
surface  tangent  plane.  This  occurs  when  the  perturbed  orbits  happen  to  cross 
each  other  at  the  surface.  The  current  density  at  the  surface  will  then  be 
infinite.  This  can  occur  only  for  a  monokinetic  distribution  of  initial 
velocities,  which  is  only  an  approximation  to  real  distributions. 


We  can  also  obtain  an  expression  for  number  density  n  along  the  orbit, 
since  nv  times  the  projection  of  A  on  a  plane  perpendicular  to  v  remains 
constant  along  the  orbit. 
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IT  -*•  ->■  -* 

i.e.  Che  product  -j-  n  v  •  (6^x  X  S^x) 


is  constant. 


We  therefore  obtain: 


n  =  n  v 
o  o 


62X1  52X2  62X3 
63X1  S3x2  63X3 


(7.13) 


For  a  monokinetic  distribution,  n  can  also  become  infinite  if  the  perturbed 
orbits  cross  each  other.  For  the  same  distribution,  n(and  j  if  a  surface 


surface 


is  present)  can  also  become  infinite  if  one  of  the  vectors  or  5^x,  or  some 
linear  combination  of  them,  becomes  zero.  An  example  of  this  occurs  on  the 
(wake)  axis  of  symmetry  behind  a  sphere  in  a  flowing  collisionless  plasma 
containing  infinite-speed-ratio  ions. 

In  two  dimensions  the  perturbation  produces  a  differential  strip  rather  than 
tube.  The  corresponding  results  are: 


surface 


=  n  v 
o  o 
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<5x^ 
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(7.14) 


(7.15) 


We  can  also  consider  velocity-space  rather  than  position-space  initial 
perturbations.  We  assume  that: 


5^x  =  <5^x  =  0,  but  =  (0,1,0),  and  6^v  =  (0,0,1). 


(7.16) 


This  permits  us  to  treat  situations  where  the  ion  speed  ratio  is  large  but  not 
infinite.  We  can  use  (7.16)  to  do  a  calculation  of  ion  defocusing  on  the 
wake  axis  behind  a  sphere,  valid  to  order  S  \  where  is  the  ion  speed  ratio. 
We  consider  the  situation  shown  in  Fig.  7.2,  in  which  an  unperturbed  orbit, 
initially  parallel  to  the  ion  drift  direction, has  already  been  computed,  in  the 
presence  of  some  known  or  given  electric  potential  distribution  e.g.  a  Coulomb 
potential.  This  orbit  crosses  the  z  axis  at  a  downstream  point  zo>  Because 
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all  orbits  having  the  same  impact  parameter  r  cross  at  zq,  the  ion  density 

at  this  point  is  "infinite"  unless  the  ions  also  have  some  random  motion 

(S . is  finite)-  In  reality  the  resulting  space  charge  along  this  axis  will 

influence  ion  orbits  near  it,  but  we  ignore  this  effect  here.  We  assume 

that  values  of  3F  / 3r,  3F  /3z,  3F  /3r,  and  3F  /3z  are  known  along  the 
r  r  z  z 

unperturbed  orbit.  Our  procedure  is  as  follows.  We  choose  two  initial 
velocity  perturbation  vectors  <5^v(0)  and  6^v(0)  in  the  plane  of  the  unpertubed 
orbit  (Fig.  7.2).  We  also  choose  62x(0)  =  6^(0)  =  0  at  zq.  We  now  do 

our  perturbation  calculations  backward ,  or  "inside-out"  along  the  ion  orbit, 
even  though  we  initially  calculated  the  orbit  forward,  in  the  ion  direction 
of  motion.  A  single  integration  of  (7.5)  with  (7.6)  yields: 

ft  3F . 

5v.(t)  =  -  dt'  Z  t  — ■  [x.  (t'),t’ ]6x. (t')  +  6v  (0)  .  (7.17) 

i  m  .  3x.  k  j  r 

For  each  of  our  two  initial  velocity  perturbation  vectors,  we  first  integrate 

(7.8)  from  z  to  an  upstream  point  at  which  the  orbit  is  essentially  no  longer 

affected  by  the  electric  field  of  the  sphere.  We  then  use  the  resulting  values  of 

5x.(t')  [in  this  case  6r(t')  and  oz(t')  ]  in  (7.17)  to  calculate  5v^(t)  [in  this 

case  <5v  (t)  and  6v  (t)  ]  at  the  same  upstream  point.  The  linearity  of  the 
r  z 

perturbation  calculation 

already  discussed,  implies  now  that  multiplying  6^v(0)  and  6^v(0)  by  any 

constants  a  and  b  means  that  6  v(t)  and  6,  v(t)  are  also  multiplied  by  a  and  b. 

a  b 

Suppose  now  that  the  velocity  distribution  at  the  upstream  point  is  a  drifting 
Maxwellian.  The  linearity  just  mentioned  now  implies  that  velocity  components 
in  the  (r, z)  plane  at  the  upstream  point  map  linearly  into  those  on  the  axis 
at  zq,  so  an  integration  over  velocity  space  to  find  the  density  at  zq  is  easy  to 
perform.  This  now  will  be  found  to  yield  a  finite  rather  than  infinite  result, 
essentially  because  most  ions  will  now  have  a  small  amount  of  angular  momentum 
about  the  axis  of  symmetry  and  will  no  longer  be  found  at  zq,  and  our  perturbation 
calculation  implicitly  takes  this  into  account. 

As  a  final  example,  we  consider  the  case  of  a  nearly-monokinetic  beam 
(the  usual  case  for  ion  or  electron  guns  on  a  spacecraft).  We  first  need  to  calculate 
the  five  perturbation  quantities  <59x,...,66x  resulting  from  choosing  initial 
perturbations  given  by  (7.9)  and  by  <5^v(0)  =  (1,0,0),  <52v(0)  =  (0,1,0),  6^(0)  = 

— V  —V 

(0,0,1).  The  values  of  ^x  and  6  ^x  then  give,  as  before,  current  density  or 
space-change  density  at  any  point  of  interest,  but  these  are  now  differential 


3 

quantities  with  respect  to  the  velocity  distribution  f  -  d  N/dv^dv2dv^  of  the 
beam  at  its  emission  point;  i.e.  the  values  of  these  quantities  found  in  this 
way  are  proportional  to  f(v  jV^jV^Jdv^dv^dv^.  The  remaining  perturbation 
quantities  6^x,  6^x,  and  6^x  then  give  the  required  information  about  the 
spread  of  the  beam  in  position  space.  This  may  itself  be  due  or  partly  due 
to  beam  space-charge;  if  this  is  the  case,  then  the  force  derivatives  8F^/3x^ 
must  themselves  be  found  self-consistently,  complicating  the  problem;  in  this 
case,  calculations  of  the  kind  presented  here  would  presumably  become  part  of 
an  iterative  scheme. 

If  the  beam  is  not  nearly  monokinetic  (as  will  often  be  the  case  if  it 

has  not  been  deliberately  accelerated)  or  it  creates  its  own  potential  barrier 

around  the  spacecraft,  so  that  part  of  it  escapes  and  part  does  not,  then 

evidently  differential  perturbations  in  velocity  do  not  provide  a  realistic 

description  of  the  result,  and  one  would  then  need  to  replace  calculations  of 

6.x,  6cx,  and  6  x  by  separate,  non-perturbation,  orbit  calculations  for  a 
4  5  6 

representative  discrete  sample  of  the  particle  velocities  most  strongly 
represented  in  the  beam. 
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Floating  potentials  of  shaded  surfaces  of  geostationary-altitude  spacecraft,  using  the  incident  velocity 
spectra  assumed  by  Knott  [1972],  with  backscattered  and  secondary  electron  emission  due  to  electron 
impacts  included,  with  three-,  two-,  and  one-dimensional  velocity-space  cutoffs  corresponding  to 
orbit-limited  ion  collection  in  spherical,  infinite  cylindrical  and  planar  symmetries,  respectively. 
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2.1.  Steepening  of  shaded-side  potential  profile,  and  sunlit-side 

potential  barrier  formation ,  caused  by  shaded-sunlit  asvsmnetry  on 
a  spacecraft  with  an  insulated  surface,  after  Fahleson  [1973] . 
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.3.  Current-voltage  characteristic  for  aluminum  in  "quiet"  conditions, 
with  a  one-dimensional  velocity-space  cutoff.  In  Figures  2.3  -2.7 
the  zeros  of  the  characteristics  are  indicated  by  arrows. 
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Fig.  2.4.  Current-voltage  characteristic  for  gold  in  "quiet"  conditions, 
with  a  one-dimensional  velocity-space  cutoff. 
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2.5.  Current-voltage  characteristic  for  aluminum  oxide  in  "quiet 
conditions,  with  a  one-dimensional  velocity-space  cutoff. 
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2 . 6. Current-voltaqe  characteristic  for  quartz  in  "quiet"  conditions 
with  a  two-dimensional  velocity-space  cutoff. 
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Fig.  2.7. 


Current-voltage  characteristic 
"quiet"  conditions,  with  a  one- 


for  activated  beryllium-copper  in 
dimensional  velocity-space  cutoff. 
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2.8.  Spacecraft  with  shaded  isolated  cavity,  showing  incident  ion  and 
electron  orbits  with  energies  close  to  the  lowest  for  which 
collection  of  each  species  is  possible.  The  orbits  shown  are 
cutoff  orbits,  defined  as  the  most  nearly  tangential  orbits  for 
which  incident  particles  of  a  given  energy  are  able  to  reach  a 
given  point  on  the  spacecraft  surface,  having  tangential  velocity 
component  in  a  given  direction. 
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Fig.  2.10.  Spherical  spacecraft  with  downstream  point  (relative  to  ion 
drift  direction)  shaded. 
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Fig.  2.11(a)  Hypothetical  symmetric  equipotentials  around  a  spherical 
spacecraft  (b)  nonsymmetric  equipotentials  around  the  same 
spacecraft . 


2.12.  Nondimens ional  downstream-point  ion  current  density 
j^1T=  (kTi/2wm^)  as  a  function  of  ion  speed  ratio 

j. 

Si  =  U/(2kT^/mi)  for  various  nondimensional  surface  potentials 

Xs  =  e4>g/kT^,  assuming  spherical  geometry,  zero  magnetic  field, 
uniform  surface  potential,  collisionless  large-Debye- length 
conditions,  and  drifting  Maxwellian  ions.  For  S^->-0,  j^+l+l 
when  X„  <  0. 


a  function  of  surface  potential  X  for  various  ion  speed  ratios 
for  the  same  conditions  as  in  Fig.  2.12.  The  straight  lines  shown 


are  power- law  approximations. 
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Fig.  2.15.  Upper  and  lower  bounds  on  floating  potential  f  at  shaded 

downstream  point  of  spacecraft,  as  a  function  of  ion  speed  ratio  S 
for  various  ion-to-electron  temperature  ratios  e,  for  Maxwellian 
electrons  and  drifting  Maxwellian  ions,  for  one-dimensional  and 
three-dimensional  ion  velocity  space  cutoffs. 
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Fig.  2.16.  Upper  and  lower  bounds  on  floating  potential  <j>f  at  shaded 

downstream  point  of  spacecraft,  as  a  function  of  ion  speed  ratio  S. 
for  "disturbed”  and  "quiet"  electron  velocity  spectra  representing 
geostationary  orbit  conditions,  for  one-dimensional  and  three-dimensional 


ion  velocity  space  cutoffs. 


91 


Secondary 
electron 
yield  <5 
per  incident 
primary 
electron 


Differential 
ambient 
electron 
flux  dJe  » 

dE~ 

arbitrary. 

units 


400  800  1200  1600 

incident  primary-electron 
kinetic  energy  E(eV) 


Te  =  300  eV 


Te=  1200  eV 


800  1200  1600 
incident  primary-electron 
kinetic  energy  E(eV) 


Fig.  3.1. (a)  typical  form  of  secondary-electron  yield  6  (secondary 

electrons  per  incident  primary  electron) ,  as  a  function  of  incident 
primary  kinetic  energy  E,  at  normal  incidence  (b)  energy-differential 
electron  flux  dJe/dE  for  Maxwellian  ambient  electron  velocity 
distributions  at  two  different  temperatures.  Total  secondary- 
electron  flux  is  obtained  by  integrating  the  product  of  these  two 
functions  ^multiplied  by  another  ractor  given  in  Eq.  (2.10)]  over 
energy  E. 
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Fig.  4.2.  Position-space  (a)  and  velocity-space  (b)  coordinates  for 
calculation  of  incident  current  density  at  a  surface  point. 
Figure  4.2a  shows  several  particle  orbits  incident  at  a  surface 
point  9,  one  of  them  having  originated  at  the  surface  point  6q 


i 


SPA  tE-  V0.82 
3CRfFT  QT 


-rikv 


SUNLIGHT 


Fig.  4.4.  CYLVIA  calculation  of  equipotential  contours  around  a 
cylindrical  spacecraft  cross-section  with  four  sectors  each 
having  an  angle  of  90°.  The  two  sectors  labeled  "A"  are  conductive, 
have  the  photoemission  properties  of  aluminum,  and  are  connected 
together  electrically,  as  shown  schematically  in  the  figure. 

The  two  sectors  labeled  "Q"  are  nonconductive  and  have  the 
photoemission  properties  of  quartz.  In  this  and  subsequent  figures, 
the  symbol  +  indicates  the  location  of  a  saddle  point.  Other  data 
pertinent  to  this  calculation  are  given  in  Sec.  4.5.  The  radial 
coordinate  in  this  figure  is  as  in  Fig.  4.3.  The  floating  surface 
potential  distribution  resulting  from  this  calculation  is  shown  in 
Fig.  4.6. 


Fig.  4.6.  Distributions  of  floating  surface  potential  vs  angle  for 
the  calculations  shown  in  Figs.  4.4,  4.5,  and  4.8. 
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4.7.  Distributions  of  floating  surface  potentials  vs  angle  for  the 
calculation  shown  in  Fig.  4.9,  and  also  for  another  one  which  is  the 
same  except  that  the  outer  boundary  of  the  calculation  (which  is 
held  at  space  potential  in  all  cases)  is  at  12rs  rather  than  e7r  . 
Also  shown  is  another  result  for  which  the  outer  boundary  is  at  3 
12rg,  calculated  using  a  program  called  TWOD,  which  combines  NASCAP 
physical  assumptions  with  circular  cylindrical  geometry  (M.  Mandell, 
Systems,  Science  and  Software,  Inc.,  private  communication). 

Other  data  pertinent  to  these  calculations  are  given  in  Sec.  4.5. 
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Fig.  4.8.  CYLVIA  calculation  of  equipotential  contours  around  a  cylind¬ 
rical  spacecraft  cross-section  having  a  nonconductive  surface, 
corresponding  to  a  surface  potential  distribution  calculated 
assuming  local  current  balance  only  (i.e.,  the  presence  of  a 
potential  barrier  is  ignored  in  calculating  photoelectron  escape) . 

The  symbol  +  indicates  the  location  of  a  saddle  point.  The  photo¬ 
electron  charge  flux  eJ  .  =  4.2xlO_^A/m2  at  normal  incidence. 

ph 

Tph=1.5  eV.  Ambient  ion  and  electron  distributions  are  single 
Maxwellians,  each  with  n  =  3cm-  3  and  T  =  1  keV.  Secondary  and 
backscattered  electron  fluxes  are  assumed  zero.  The  polar-coordinate 
computation  grids  in  position  (r,G)  and  in  velocity  space  contain 
65  x 16  and  8  x  16  intervals,  respectively.  Outer  grid  boundary 
radius  r8  is  e  7  times  spacecraft  radius  rg.  Linearized  ambient  space 
charge  (Eq.  4.3;  Laframboise  and  Prokopenko,  1977),  corresponding  to 
a  Debye  length  of  96  rs,  is  assumed.  Radial  coordinate  in  Figure 
is  1 +  7n (r/rs) . 


4.9.  Same  as  Figure  4.8  except  that  the  calculation  is  now 
self-consistent  including  potential-barrier  effects  on  photoelectron 
and  other  particle  orbits. 
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Fig.  4.10.  Potentials  vs  distance  along  spacecraft-sun  line  for  the 

situations  shown  in  Figs.  4.8  and  4.9,  showing  the  large  decrease  in 
differential  charging  which  results  when  potential-barrier  effects 
on  particle  (especially  photoelectron)  orbits  are  included.  Without 
these  effects,  surface  potentials  at  the  sunward  and  anti-sunward 
points  are  5.1V  and  -2.96  kV;  with  these  effects,  these  potentials 
are  -1.76  kV  and  -2.96  kV. 
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Fig.  4.11.  CYLVIA  calculation  of  equipotentials  around  a  circular  space¬ 
craft  cross-section  with  given  rather  than  self-consistent  surface 
potentials,  as  shown.  In  this  Figure,  the  radial  coordinate  is 
proportional  to  radius.  The  computational  grid  in  (r,6)  contains 
65  *  180  intervals.  The  outer  grid  boundary  is  at  e5  %  148  spacecraft 
radii.  Linear  space  charge  corresponding  to  Xp=32.5  spacecraft 
radii  is  assumed.  Other  data  pertinent  to  this  calculation  are  given 
in  Sec.  5.2.  This  calculation  was  done  for  the  purpose  of  comparison 
with  a  XYCIC  calculation  shown  in  Fig.  5.1,  and  also  with  a  similar 
but  three-dimensional  calculation  done  using  NASCAP  (Olsen,  1980, 
p.  190;  Olsen  and  Whipple,  1980,  Fig.  16).  The  results  of  this 
comparison  are  discussed  in  Sec.  5.2. 


5.1.  XYCIC  calculation  of  equipotentials ,  corresponding  to  the 
CYLVIA  calculation  shown  in  Fig.  4.11.  One  difference  between 
these  two  calculations  is  that  in  the  XYCIC  calculation,  zero  space 
charge  is  assumed.  The  innermost  grid  used  in  the  XYCIC  calculation 
contains  40  *  40  intervals;  the  octagon  has  a  dimension  of  28  *  28 
intervals  and  is  centred  in  this  grid.  Six  other  grids  surround 
the  innermost  grid;  the  outermost  grid  boundary  is  a  centred  square 
side  19.2  times  as  large  as  the  innermost  grid  boundary,  i.e. 
located  at  27.4  object  half-widths. 


Fig.  5.2.  XYCIC  calculation  of  equipotentials  around  a  cross-section 
through  a  hypothetical  antenna  +  spacecraft  body  combination.  As 
in  Figs.  4.11  and  5.1,  surface  potentials  are  imposed  (in  this  case, 
also  hypothetical)  values.  Zero  space  charge  is  assumed.  The 
innermost  grid  used  contains  32x32  intervals  with  the  combined  total 
width  of  the  "object"  being  24  intervals.  Six  other  grids  surround 
the  innermost  grid;  the  outermost  grid  boundary  is  a  centred  square 
of  side  20  times  the  innermost  grid  boundary,  i.e.  located  at  26.7 
naif-widths  of  the  combined  object. 
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ILLUMINATION 


Fig.  6.1.  Geometry  for  photocurrent  sheet  calculation.  The  illumination 
is  assumed  to  vary  linearly  with  x,  producing  a  photoemission  current 
density  Jph(x0)  = Jph, o + Jph'xo-  The  electric  field  components  Ex 
and  Ey  are  assumed  uniform ,  so  that  the  surface  potential  varies 
linearly  with  x.  The  electron  orbits  are  then  tilted  parabolas. 

Their  impact  points  x  can  be  found  analytically  (Eq.  6.1)  for  given 
values  of  emission  position  xQ  and  emission  velocity  components 


xo 


and  v 
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Fig.  6.2.  Current  densities  vs  surface  position  for  the  situation  shown 
in  Fig.  4.3  and  described  in  Sec.  6.3.  In  this  Figure,  normalized 
current  density  j  is  defined  as  J/Jref,  where  Jref  is  the  random 
flux  of  Maxwellian  ions  having  a  temperature  and  density  of  1  keV 
and  1  cm-3.  Approximate  photoelectron  currents  jp^  obtained  using 
the  approximate  surface  current  ("current  sheet")  model  given  by 
Eqs.  (6.7)  ana  '6.8)  are  shown  as  dashed  curves. 
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A0N22-! . 1 4U> / • . 1 -U> 

A0N32-7.8! . I -UI/CHAX 
DO  40  l-I.H 
A0N3-Y«I>4A0N4 
>  ONA- Y ( I  I 4A0N2 
AON 7- SORT  I A0N34A 0N5 > 

A0N30-Y ( f I4AON40 
A0N40-T < I >  41 . 27222? 

A0N70-SOR  T !  AON304AOIOO I 
AnW3»-Y! 1 • 4AON41 
A  UNA I - Y  < t ) 4  I .222222 
AON  7  J  -<lf)R  T  (  A  ON  3 1  4  A  04(3 1  > 

AI1N32-Y  (  I  141 
*  IW*  *  ull  UNI” 


A3 


KUrt  '*'.OdriMWJ'»fcO»5.'i 

K-H,  l  '•tR'lNl«*aM94424EXM-M)Nr»'R0N444  UkONIOMlMMU.'l 
-  AON  ’O  >  A0N«04S2tA0NI I4A0N3  I  •  •.'•CXPl  -i  im  ’  |  i.KONtltlj 
|  *AONl  -*4AON32*«..’»C  UPl  -AONr;>  •  KUM6.'  v 
»  »Stin-Fl»f  »Sg« 

40 

csrc  n  ;un 
on  m  » 

4  »  * su«-o. 


MINI  r|0.  >AON 

•  on;-* cutoff *io. » '<cutoff-io. > 

AQN3-.  .^CUTOFF  -10. >/£H4* 

MiMoCUIOfFMO.  -2.*U'/lCU10fF-10.  ) 

A<lNlO>4.3«R0N 
AON  JO-  !  8  .  -  £  fMX 
A UN 40 • I .222222-U/4.S 
A ON l ^ -AON 

aonji »t .s/cnnx 

a ON 4 l-j .222222-0/. 43 
aONI2-25.«aon«(  .1 -CUTLOW) 442 
A0N22-1 . l*CUTL0W>/< .  1 -CUTLOW) 

AQHj2-2.*i . i-cutloui/ehax 

AON42-KON22-2. *U/< . I -CUTLOW) 

a one-?. «w/ (curof r-io. i 

AONOO-V/4.S 

A0N81-V/ .43 

M)N82-2.«U/< . 1 -CUTLOO > 

AONl 3  -  1 2 . 54AON* l CU  TLOW-U I •* 3/CUTCOW 
A  ON  2  3-  <  CUTLOtMU  >/  ICUTLOM-U » 

A  ON  33 -2  .  •  <  CU  TLOW-U  )  /EIMX 
PO  30  I-I.n 
A0N3-I < I >  »AON4 
AONA-Vl  U4AON2 
A ON 7 - SON  £ ( K 0N3 «K 0N3 ) 

A0N30-TI I14AON40 
A 0N40-YI 1)41.222222 
AON 70 -SOU T < AON304KOW30 » 

AOH31-VI t>*AON41 
K0N4I-VI I >41.222222 
AON71-SQftT< A0N3I4K0N31 > 

K0N32- Y  <  I  ) 4 AON 4 2 
A0N42- Y < 1 >  4A0N22 
AON  7  2 -SON T  <  RON32SRON32 ) 

A0N33-Y (1)41. 

A0N43- Y< I ) 4K0N23 
AON73-SQNT ( A0N334A0W33 > 

r X-H  < I > • ( AON1 4R0N3SS24EXP ( - A0N7 > /RON4S43 
1 t AONlOt AQN304424CXP l -KON70 ) /R0M4OSS2 tAONl 1 SK0W31 SS24EXP  < -AON 7 1 ) 
1 /XON4 1 *4 3+A0N1 24AOW32442>£XP< - A ON 72 ) /AON* 2 > 

1  * AON t 3«A0N33*»2*E XP ( -AON73) 

FXMN-TK4PXSUM 
30  CONTINUC 
CSEC-FXSUH 
CO  TO  A 

3  A ONI -10. 4 A ON 

A0N2- « CUTOFF  410. >/lCUTOFF-IO. > 

AON 3- 2 . *1 CUTOFF  - 10 . > /EHRX 

A0N4- <  CUTOFF  ♦10.-2.#U>/( CUTOFF- 10.) 

K0N10-4.3SA0N 


R0N3O-IO./CNAX 

A0N4O-I .222222-0/4.3 

AON 11 -AON 

k0NJ1*| .8/EH4X 

A ON 4 1 - 1 . 222222-U/ . 43 

A0N12-23.4RON«< .1-CUTL0W>*42 

K0H22- 1  . 1 tCUTLOW) /(.l  -  CUT  LON  ) 

K0N32-2.  *C  .  I  -CUT LOW  )  /EtWtX 

A0N42-KOW22-2 .  •!)/«.  I  -CUTLOW ) 

A0N8«2. 4V/ I CUTOFF- 10. ) 

AON#0«V/4.3 

R0N01-U/.43 

A0NO2-2. 4V/< . I -CUTLOW) 

h0N4J-2.»V/CUTL0W 

A  ONI 3- 1 2 . 34KON4CUTL  0W«  1 2 

K0N33-2 . CCUTLOW/ENAX 

A0N43- 1.-2. SU/CUTLOW 

FXOUM-O. 

DO  40  !•! -M 
A0N3-YI  D4K0M4 
A0N4-T  < I ) f A0N2 
A ON  7-SQNT  (  K0N34K0N9  > 

K0W3©*Y  CD  4K0N40 
K0W4O-Y < 1)41.222222 


A ON 70- SONT ( K0N304RON3O > 
A0H31-YI  D4K0N41 

K0N41*Y< I >41.222222 


A ON 71 -SON T(KON31«KON31 ) 

R0N92«Y<I>4KON42 
R0N42«T<  D4R0W22 
K0N72-SONT  i  K0M328MM92  ) 

MWU«Y(I>4K0M) 

K ON 73- SON T <  R0N334K0H93 ) 

K0N43-T<|>41. 

IflKMMCH.EQ.  1  >fX*M<  1  )•  <RONISMOW3S42«EXP<  -A0N7  ) /A0N4443 
1 4«ON10«KOMSOS»2tfXP1 -R0M70) /KQW4OSS24R0N1 1SR0M31 S42SEXP 1 -K0N71 ) 

I /* 0M4 1 S«3 4K0N1 2SN0W32SS2SCXP < -KOW72 ) /KON42 ) 

I 4R0NI 34R0M334S2«CXP< -AON 7 3 ) 

If  (KBNMCM.CO.2  >FX*M<  I  >•  <  R0N1SKOW34  (KOW34MT8  IW<  SON  TIX0N4/K0N3  >  )/AON 


14* SONT (A0N0/A0N4 > ) M XP< -A0N7 ) /AON4SS24K0N104K0W3O* < K0N90tANSIN< M 
2T  4  K0M4/R0NS0  )  )  /R0N4O4SON f  (  RONOO/KONAO  )  >  «EXP  4  -RON70  )  /  AON404  AON  1 1 
2M0N314  ( AON31  S4«SIN( SONT  (K0N41  /R0W31  >  >  /ROM414&ONT  l ROWS  1  /A  ON*  l  >  > 
294 XP  t  -N0M7I  ) /A0W4 1 •S24R0N1 2SK0WS24 4 R0N3244NS I N 4 IMT  4 R0M42/R0W32 > 
4  > /AON424SONT 4  KONN2/AON42 ) ) KXPI -A0N72 ) 

3414 ONI  JNR0N9  J4K  0N4  Jt  4  R0W3344N3 1 M  <  SONT  ( A0N43 /K0W33  )  )  /K0M4J 4 
•  SONT  4  KONO J/R0M43 ) )•* XP4-KOW7J) ) 

If  4RMWCN.C0. 3)f  X»M4  I )  •  (AON)  «X0N3*EXP<  -A0N7  > /RON4442 
| »r0NI0SR0N904CXP< -A0N70  > /A0N404 AON1 1SN0N9ISCXP4 -A0W71 )/R0W4lS«2 
1 4K0W1 24R0N924C XP< -AON 7 2 ) ) 4 AONt J4R0N3 J4R0N4 J4E  XP 4 -A0N7J ) 
FXfUN*FX4FxfUM 
40  CONTINUE 

If  4  R  MMCM .  CO .  2  )  f  XSUTt* .  4344 1  P«Sf  X8UN 
CfCC-fXMJN 

IF4U.LT .0. >C4CL  NET4ND4 V.CCCC. T3EC ) 

4  C9CC-CKC/41 
•  NfTUNN 
END 


•ENTRY 
1414  4 

-  .40420  JO 
-.4204 J4f 
-.0272011 
-.4072424 
-.3192400 
-.3141124 

-  .1000344 
. 1000944 

.3141124 
.3132404 
.4072424 
.077701 J 
.4204144 


.3311444C-01 
. 0019004C-01 
.1219104 
.1372012 
. 1039304 
. 203 1 403 
.2137*14 
.2132420 
.2031409 
. 1099104 
.1972012 
.1219104 
.0OI9OO4C-01 
Mt  «44A*-At 


.  10 


.  003 

.001 


.444 


Kill 


B1 

Appendix  B:  Listing  of  threshold  temperatures  program 


Hi  KS  K  -OOOO 


I  N4 

>  KlIbRAH 


I  INF 


?K  (  S  S  |  I'lnROttS 
AAftKIAtfi  (NCLUDIJ 


IM4  CNIIICAl  rfnltkAluiis  (UK  sUlMKAM 
*»  ANGULAR  DEFt.NGtNLt  Ot 


DOUBLE  PRECISION  li* 

comnon/ntrl '  Ehx i  I.'  <  .  Iimxi  j.*>  . KSA(  12 '  >HbfM  JJ i . HS<  <  i.m  ,/»  i  »> 
lO"MON  IH.l.H.KEM.A.H.C.K  2  .  in  (i.  [LW.  •  [lINIf.l  10) 

DIMENSION  If  i  «2.6»  . DUMMY « 12 >  .  ILiUHi  64)  .[iptb<  ‘i 
CuuivAi  tm  t  « Iiimnr ,  hum > 

1>A1  A  EPS/  I  . OE -3'. DDTS/O. 05.1.0' 

Data  hums , 1/ .none  *79  •.ni(»f  'i'.NH/t/,Ni 
PAIA  LU/ l J  •  •  I  r kAi  /  20  .  ISECf -'0/ 


00  300  N^NUNS.NUnt 
mk i re « i .aoo>  n 
AOO  MlNMIDt  •  >,N,’,I_'> 
l  n-£fi*«  Ni 
Oh  -bn*  in) 

^■0  500  NPART.NPl  .  NP2 
►  AC-NPAR t *7  3 
DTS-DDISi NFART  » 

Wk! IE*  I .MO 4  I  NPARI 
B04  I  ORMAI  (  10  1  .  •  .  NfARI  ■*  '  .  12  I 
DO  300  I E  L  G  •  t  • I E  L  G£ 

1F<  IfLO.Gt .2)  GO  TO  90 

4-0.0 

fc  ’0.0 

(:  *o.o 

U  (MPAKt.EO.  1  I  IS»EH 
IF<  MPART  .  £Q. 2)  TS‘EN/2.0 
i.O  TO  10 
90  4>P*A<N) 

»*PS0IW) 

C-0SCIM) 

IF< IFLG.EO.2)  QO  TO  4 
DZ  *  DDLE  <  Z  <  N )  ) 

PE  TAB-SNGL <  7.37DO0DZ441 -0.36875D0) > 
FZ<<EXP<BE f APl-»tTAP~l .0) / BE TA&«« 7*2.0 
MHiri(l.’OI)  Z<N).BCTAB 
rot  FORMAT ( ton. • Z*  .FS. l.SX. '  PE  Tap- ' .E15. 7) 

GO  TO  8 
6  FZ-1 .Q 
8  fS»rC<N. NEAR  f | 

l F  <  NPAR  T . E  Q . 1 . AMD. TS.LE  .  1 .0E-4)  TS-th 
IF  <MPART  .CO.2.AN0.  TS.LE  . l.OE-4)  TS-CM/2.0 
lO  Dr>DTS 
NPATH*! 

.’0  F L  “RCURl  TS I 
JO  TSS-TStOT*F AC 

IF( TSS.LE . 1 .0C-«>  GO  TO  300 
FH-RCUR(TSS) 

WKI TE< l . aOO>  TS.FL.FN.DT 
600  FORMAT !4F 13. 7) 

IF (WPART .£0. I . AND. TS.LE. 1 .OE-4)  GO  TO  500 

if(nf-art.eo.2.anp.  rs.GT.ro. o>  go  to  soo 

IF!Fl«FM>  30.30.40 
♦0  TS-TSFPT4FAC 
FL  »FM 

GO  TO  < 30*301 *NRATH 
50  DT-DT/2.0 
NRATN-2 

IF < PT-EPS)  *0. 60. 30 
60  HPAT-MPARTF4 IFLG-1 >•? 

TC!M,MPAT)«TS 
WRITE0.200>  IFLG.TS 
200  FORMAT « SX. ' IFLO- ' . 11 • SX . ' TC- ' .F0 . 4 > 

500  CONTINUE 

CALL  EXEC<2.LU.£HX.64. 1  TRAC. I SECT) 

CALL  EXEC <  2. LU* DMX .64.1  TRAC . I SEC TF I ) 

CALL  EXEC  <  2* LU. PSA. 64. I  TRAC .ISECTF2) 

CALL  EXEC < 2> LU. PSP. 64. 1  TRAC . I5ECT 1 3 ) 

CALL  £  XEC  <  2  >  LU. PSC  *64 . I  TRAC • ISECTF4) 

CALL  EXEC<2,LU,Z,64,I TRAC . I SECT 45 > 

DO  TOO  J-1.6 
1 SEC* I SECT  FJ*5 
DO  J10  1*1.32 
DUMMY (  I  ) ■ TC  < I. J) 

310  CONTINUE 

CALL  EXECI2.LU. DUMMY. «4. ITRAC. ISEC> 

JOO  CONTINUE 

IDUH< I >*NUMS 
I DUN! 2 ) «NUME 

CAtL  EXCC  ( 2«LU.  I DUN. 44,  I  TRAC.  /SECTFI2) 

STOP 

END 


BLOCK  DATA 

COHMOM/NTRL/EMX I  32  > . DHX<  32  > . ISA!  32 ) .»SP< 32 > . DSC  <  32  > , Z ( 32  > 
DATA  EMX/O. 8. 0.3* 0.3. 0.42. 0.33. 0.33*0. 3. 0.4, 0.3.0. 13. 

AO. 23.0. 8.0. 23,0. 4, 0.8,0. 33. 0.36*0. 33,0. 3?. 0.05.0. 15, 

PO. 41 ,0. 13*0. 13,0. 13.0. 72,0.40.0.39*0.3/ 

DATA  OMX/1 .43.0.97.2.4.2.3,3.46.0. 73,2.2,3.0,3. 0.2. 1 . 

Al. 8. 1.4. 0.92* 4. 0.1. 0.2. S3. 2. 39. 2. 33, 1.32. 6. 38. 2.1, 
02.03,2.1.2.1,2.1,1.03,1.49,1.86.1.0/ 

DATA  2/ 79.0, 13.0* 10.0.10.0,10.0,6.0*29.0,29.0.0.0,3.3. 

AS. 3, 24. 4,12.0.10.0.47.0.13.3.14.2,14.9.13.3. 10.0.3.0. 
010.0,3.0.3.0.3.0.70.1,42.0.43.4.4.0/ 

DATA  08A/O. 4802, 0.1348. 0.1230. 0.1238. 0.1238, 0.08. 0.31 34. 
AO. 3 1 34 *0.09, 0.07, 0.0 7. 0.273*0. 146,0.1238.0.39,0.183,0. 192. 
00.2,0.183,0.1238.0.04,0. 1238,0.04,0.04,0.04,0.434,0.373. 
CO. 438. 0.08/ 

DATA  080/0.3346,0.0303*0.01 72,0.0172,0.0172.0.0,0.0492, 

AO. 0492. o.O, 0.0. 0.0, 0.04, 0.023. 0.01 72. 0.209. 0.037. 0.04, 
00.042.0.037.0.0172,0.0,0.0172,0.0.0.0.0.0.0.338,0.274. 

CO. 325.0.0/ 

PATA  0SC/O. 6103, 0.3431, 0.3435. 0.3433, 0.3433. 0.0. 0.6207, 

AO. 6207, o.O. 0.0, 0.0. 0.34 .0.344,0. 3413.0.432*0. 382,0.399, 
00.41, 0.382. 0.3433. 0.0. 0.3433. 0.0, 0.0. 0.0, 0.61 2. 0.417, 

CO. 613,0.0/ 

END 


IM7-  V 

t  Hit 
•  I  »t> 


I  I  U  f  UF  * 


4  ,UN4<.U.O 
L  -  PE  '2.0 

10  SUM4>  SUM4FT  iNltxi  ' 

I  f  H't 

II  <1  llllUf  I  10.30.20 

.  0  I  INK.- IH  /6.<v*»SUMt*Z.O*SllMJ*4.04SlJM4) 
lltk-lUKtl 
II  I  til.*  T 

1 F  <  1 1  ,  bt  ■  6  ■  GO  I  0  60 
DINID«  1  I  >*EINTG 
1.0  TO  40 

6<|  MNliidi  -I'JNTGIS.' 
l‘INlG(5)-l  INIG 

40  IF  <  ADS- t INIG-SUMA  >/E INTO -ERROR  >  50.30. 30 

JO  SUN? • SUM 2 ♦ SUM 4 
SllllA.i  INTO 

in  <D( , 2.0 

GO  til  4 

%0  DINIbl  1 » " t U T OF 
D IN IG«  2  >  ’F <  U | 

PZNTG<  .1  t*l*f 

IF  < 1 1LK.LU. 1 )  RE  TURN 

f  INIG- 4  16. 0*1*1  NIG  <  3)  I.INTG14)  1,15.0 
fct TURN 
1  NO 

FUNCTION  RCURf  T» 

COMMON  EM.Dm.REN.A.P.C.FZ. IF LG* I CHK  r  D INTG( 10) 

REM^EM/ T 

CALI.  INIG(EINTG) 

RCOF.  .  ktM*4  2*E  XPl  2.0  I  *DM«E  INTG4(A-P/<  1  .0FC4T  >402  I  0F  2  -  1  *0 

kt TURN 

END 

FUNCTION  FlNIG(E> 

COMMON  EM. Dm. REM. A, p.C .FZ. IFLG. I CNR .D1NTGI 10) 

F"  1 » ~2  •  04 SORT  « E  I-REM4E 
IF( 1FLG.GE. J)  GO  T 0  10 
IF  *  F*1  .GT. -20.01  GO  TO  5 
FiNTG-0.0 
RETURN 

5  F  INtr.«K**2*EXFMF>l  > 

RETURN 

10  X=0 , 2755*  <  ALOG  < E  > ' 1 . 658  I 

V- -0. 0228/ <XFSGRr<XM2*0. 0228*  I 
PETAS-EXFM  Y> 

F2*R1 FRET AS 

IF  ‘F  l.GT.  -20.0)  GO  TO  15 

F  I WTG-I  E/PE  IASI  M2PEXPC  *»2>42.0 

RETURN 

13  f INTG»<E/PETAS>*4?4<£XFMR?>-E*P<P1 )•<  PETAS41 .0)142.0 
RETURN 
END 
END* 


SU0ROUT IRE  t  NTO*  C INTO l 

COMMON  EM.DM.REN.A.P.C.FZ. 1F|  0> I CMP , DINTGI to) 
DATA  ERROR/I  DE-4/.EFCUT/I .OE-7/ 

ITER»0 

PO  lOO  (-1.200 
CUTOF«| 

FCJI-FtMTOICUTOF  ) 

IF iFCUT.LE .fFCUT)  GO  TO  110 
100  CONTINUE 

MRITEI 1.9891 

989  FORMAT!  INSUFFICIENT  0  OF  DOMAINS') 

110  PE^CUroE/iO.O 
SI «MI -f  CUT 
SUMA-0.0 
SUN 2 >0.0 
f  r«f 


Cl 

Appendix  C:  Listing  of  CYLVIA 


l.KAH 


L  YL  VIA 


in  t'HiaiN  rm  hiimnni  1'i  MUnutn 

UNDt  h  MAl.NE  lOnKN^  ll  CONDI  t  lUNS 

i  Ht  s»A(icKA»r  is  divided  iniu  ttr 

HA 'I  flMlAIN  SEVERAL  GRID  Mllnr^.  Sll 
ARE  Rff  UK  IN  S/P  MIRiH  U*»  I NG  TnF 
rut  tMUl  t  11  F  DAT  IN.  WHICH  ■■At',  -nu 
I*  I V I  Itf  !■  p  I  S  ALSU  PE  All  IN  DA  I  RED. 

w  scr i f i ions: 


SEAL*  I.RAF  I 


f  RUKt  kllh 


kill  1'A  I  HA  /  . 


'I*.  *  H 


M.  IP 


HINTS 


CAT  IN.l-At  RAJ  .POT  IN  ARE  INPUT  FILES 
)OUn  is  USED  IF  FLAG  HOIS?*’ 

KOTIN  HA  1  CONTAIN  SURFACE  POTENTIAL  iNfORNATIUN 
WHICH  SHORT-CIRCUITS  THE  GUFSS  FIELD  IN  I  I  I Ai  I , 'A  I  I  ON. 
TAt'CtffUWUT  CONTAINS  M  It  F  I Wf ORMA f ION  A  him  I  Hilt  N I  I  A1 
I AF-E  H  IS  REWOUND  AT  EACH  HA  JOR  ill  RAT  TON 
T  AF'l  V  -UUlPU  I  IS  THE  HAIN  Ol'  fill  I  lit 


DFSCRIF-T  ION  OF  THE  WAR  I  ARLES 

Af'uRC  V  TOLERANCE  FOR  OBJECTIVE  FUNCTION 
ANG  ANGULAR  LOCATION  OF  GRID  FO/NTur.* 

ANGO  is  ANGLE  RE  TWEEN  THE  FIRST  GRID  *OIn 
CRSCAT  <NON-PtH>  CURRENT  DUE  TO  BAiFMAI 
C  DSC A l  EMITTED  RACK  SC  A I  TER  CURRENT  A1  GRID 
BSC  A  I  1  .  KSL  A1  ?  ■  DSC  A  T  1  rOEFFICICNlS  OF  RAi  ► 

CElEC  ELECTRON  CURRENT  AT  GRIP  FOINT 
COUNT!  44  >  CURRENT  DUE  TO  ILECTRON  UR  ION  i. 

CION  ION  TURRENT 

CPhONX  f  mo  T  OE  i  ft  T  RON  COEff  FOR  A  GIWFn  hai 
I. PHOTO  F-HOTOELECTRON  CURRENT 

CSFCl  EMITTED  SECONDARY  ELECTRON  CURRENT  a 
CSEC  TOTAL  SECONDARY  ELECTRON  CURRENT  AT  GRID  ioimIS 
CSECTR  TOTAL  CURRENT  FOR  A  GIVEN  SECTOR 
DELEf .PELMAX  COEFFICIENTS  OF  SECONDARY  EMISSION 
DECT  STEF-  IN  OKRIT  INTEGRATION 
DPMI  F-OTENTIAL  INCREMENT 

dene  1  ELECTRON  NUNDER  DENSITY  PER  CUD/C  METER 

CORRESPONDING  TO  A  LOW  ENERGY  MAXWELLIAN  VELOCITY  D  I  S  TR I  Fill  I  UN 

PfcNET  ELECTRON  NUMBER  DENSITY  CORRESPONDING  TO  A  HIGH  ENERGY 

DENI  I • DENI  2  ION  NUMBER  DENSITIES 

DF  L  TAX  GRID  SPACING  IN  X  COORDINATE 

DELTAY  GRID  SPACING  IN  Y  COORDINATE 

DVDX-POTENUAL  DERIVATIVE  IN  x  DIRECTION 

DVDY-POTENTIal  DERIVATIVE  IN  Y  DIRECTION 

EV=  0TH  ORDER  MONOENERGETTC  VELOCITIES 

EK-8TH  ORDER  HONOE NE RGE T I C  WEIGHTS 

GAMMA  TEMPERATURE  RATIOCGIVEN  SPECIES  TEMP/REF  T ( HP ) 

IDTL  FLAG  FOR  FINE  STRUCTURE  <  SECTORS  > 

IFAULT-FLAG  FOR  INCLUDING  OR  EXCLUDING  I ONS .EL  EC  IRONS . PHOTONS .£ TC 
IGEOM  IS  FLAG  FOR  GEOMETRY  OF  GPACECRAF I 
IGEOM-1  THE  CRAFT  IS  AN  INFINTE  CYLINDER 
IGEOH*?  7 ME  CRAFT  IS  A  PROLATE  SPHEROID 
I  LEV  FACTOR  OF  DIVISION  OF  VELOCITY  LEVELS 
IPOIS  IS  A  FLAG  USED  IN  S/P  GENGRO 

IPOIS-O  A  GUESS  FIELD  IS  COMPUTED  USING  LOCAL  CURRENT  BALANCE 

IPOIS-1  POISSON  EQUATION  SOLVEO  USING  UPDATED  DATA 

IPOIS/J  RESTART  THE  PROGRAM  AT  THE  LAST  ITERATION 

ISTABLE  IS  FLAG  INDICATING  STABILITY  FROM  ONE  ITERATION  TO  NEXT 

ITER  IS  NUMBER  OF  MAJOR  ITERATIONS 

ISYM-0  CORRESPONDS  TO  NO  AXIAL  SYMMETRY 

ISVM-2  THE  FIRST  GRIP  POINT  MARES  AN  ANGLE  EQUAL  TO  ANGO  WITH 
THE  SUBSOLAR  POINT 
JLOCAl  DEFINES  SURFACE  MATERIAL 

I ROOT "FLAG  INDICATING  CONVERGENCE  AT  A  GIVEN  GRID  POINT 
H-INITIAI.  STEP  IN  ORBIT  INTEGRATION 
l UN3  LOGICAL  UNIT  3(  DATBAZ  > 

LUNA  LOGICAL  UNIT  4 ( DE  T  A I L  S  FOR  CURRENT  DUE  TO  SECONDARIES) 

LUN3  LOGICAL  UNIT  3  C  DAT  IN ) 

LUN6  LOGICAL  UMIT  6CCUT-0FF  BOUNDARIES  -ACCEPTANCE  ANGLES 

FOR  PRIMARY  PARTICLES 

LUN7  LOGICAL  UNIT  7 ( MISCELLENOUS ) 

LUN8  LOGICAL  UNIT  8IPOTOUT) 

IUN9  LOGICAL  UNIT  9<OUTPUT> 

LUNIO  LOGICAL  UNIT  lO(POTIN) 

M-NUMBER  OF  UNKNOWNS  IN  I  DIRECTION  < RADIAL  > 

NPOINT "NUMBER  OF  UNKNOWNS  IN  J  DIRECTION  TANGLE) 

NANG  THE  VELOCITY  SPACE  IS  DIVIDED  INTO  2BNANG-1  INTERVALS 
FOR  ANOLESIUSED  FOR  SECONDARY  ARRIVING  PARTICLES) 

NLEVEL  NUMBER  OF  VELOCITY  LEVELSy  -NTIME6NSAMP 

NTIMC9  FACTOR  OF  MULTIPLICATION  OF  NUMBER  OF  VELOCITY  LEVELS 

MSAHP-MUHBER  OF  VELOCITY  LEVELS  AT  OUR  DISPOSAL. 

NSEC T "MUM BCR  OP  SECTORS 
PERSEC*NUMBER  OF  GRID  POINTS  PER  SECTOR 
P9ECTR-SURFACE  POTENTIAL  FOR  A  GIVEN  SECTOR 
PBOUND-POTENTIAL  ON  OUTER  BOUNDARY  (USUALLY  ZERO) 

PHI-POTENTIAL  OF  SPACECRAFT  SURFACE  AT  GRIP  POINTS 
RATIO-Qi 1 » T(2)/Q(2>T( 1 > .  SEE  SUBROUTINE  GENRAT 
RAD-RADIUS  OF  SPACECRAFT 

SBOUND-LMi OUTER  BOUNDARY  RAD I US/SPACECRAF T  RADIUS) 

SECINf  CONTAINS  INDICES  OF  GRID  POINTS  PER  SECTOR 
SECPR I -EMI T TED  SECONDARY  CURRENT  DUE  TO  PROTONS 
SECPRN-TOTAl  SECONDARY  CURRENT  DUE  TO  PROTONS 
SUNANG  IS  ANGLE  OF  SUN  RELATIVE  TO  HORIZONTAL  AXIS 
TEMPB-BSCATTER  ELECTRON  TEMPERATURE  IM  EV 
TEMPE I -PRIMARY  ELECTRON  TEMPERATURE  IN  EV 
TEMPE 2-PRIMARY  ELECTRON  TEMPERATURE  IN  EV  CORRESPONDING 
TO  HIGHER  ENERGY  POPULATION 
TEMPI  1- (ON  TEMPERATURE  IN  EV 

T E MP 12*1 ON  TEMPERATURE  IM  EV  FOR  HIGH  ENERGY  SPECIES 
TEMPP-  PMOTCLECTRON  TEMP  IN  EV 
Tf HPR-RCFERENCE  TEMPERATURE  TAKEN  AS  IOOOCV 
Tf MPS-SECONPARY  ELECTRON  TEMP  In  EV 

If MPSP- TEMPERATURE  OF  SECONDARY  ELECTRONS  PRODUCED  BY 
PROTON  IMPACTS 
XS.XSS  RADIAL  DISTANCE 
Y -SURFACE  ANGLE (DEFINED  IN  GENOAP) 

IMPORTANT  CONSTANTS  DEFINED  ELSEWHERE 


.NAME  4 <  3  >  •  Nf  ME  5 ( 3 ) 


mil  i  ■  it  iiuuh  t  KKtriMUN  a  h  .  o  /> 

INK  l.f  k  MW.tr  «  lit  l_  |  N t>  •  f  I  kf  AN  «  f  AN  I  Nil 
■  1 1MMIIN  '  Hi  f.  I 

1  .  .AVI  <  I  .  1 1. .  .  L  ,rtvi  I  it..  <  ffc  >  i  c  i  .  i C  I K  <  I  6 ) . 

t  M  (  It  („*•>!.  in  t  MAX  l  It.  i  .1  MAX  ■  J  £,»  .  I  Ui.x  1.K.I  All  <  16>. 

’(■*•(  A  I 2 «  1  6  >  .  |<S(  A  I  S  l  1  A  i  .  I  III)  I  JO  >  40  I  . 

IANI.<  4<M  .1  f  HUM  I  i  I  6  i  .  '.IJNANi.  .  ANGU.  BUUNUl  I  JO.  40  I  .  BO(JN|>  I  (  20*40)  . 

.  AM  l.l  (jo.  40>  .VI  J  I  20. 4  V  *  .  It  HI  lk(  20.40)  .  KA  I  I0<  1  i  >  •  I  BOOT  I  I  • 

■  If  A  l  II  I  •  I  4  I  •  II  DIAL  I  16  *  .  ll.UNf  lA  )  • 

I  VI  t  JOf.I  VI  8  I  Nl  f  V  .N  MMES  .  ILEV.  T  IMINi  20  I  .  UMAX  I  20  )  ,V1  MUM<  20)  . 
1  If  I  b.NPiilNI  ,  n .  lot  Oh.  I S  V  m  .  IKOIS.NSEfT  .  NPF ROD. MCE ROD.  ifilMY. 
2I.AHHA.  DVD*  i  ’0  .  I  6  I  •  l'VDY  (  70.  16)  .  Y  (  li  )  •  Dfc  l  IAX.DII  I  AY  » 

5YS'  66.  I  6  I  .  XS>  A  A  >  .  XSS(  /«>  )  . 

I  OAK  Bit  ( 4  >  ,  I  . HI  L  I  .SDUUND.NDIH.POT .H. Ji . KD I . RP 1 7 • RP IHAF . SO IP  I > 
.’SAY  .  UMPt  I  .  I  f  Hf  t  2.1'ENt  1  .  DENt  2.r*f  NI  1  .DENI  2.  It  MPII  .  ItMP17. 

J  TE  HPR  .1  IINJ.I  UN 4 . 1  UN*> . I  UN6 . 1  UN  7 , l UN8 . 1 UN9 . 1  UN10. 

I  I  Ml  >  16  >  .  flill  i  1 6  i  .ft  KSECI  16)  .SEC  I  NIK  16)  .  I  PANEL  llol. 

JKE kPAN<  1  A . 4  > . f  ANINDl  16 )  . 

II  MINI  16  •  .1  H  I  C<  It.)  >  LSEC  (  I A  >  .  CSEC1  <  16  )  .CfHOTOC  16)  . 

JCf'MUT  |  i  16)  .LBSCAK  1  6  )  .  C  B5CA  1  (  1  6  >  .  SE  CTRN  I  16  >  .SECPR  I  <  16)  * 

If  Hi  t  I  6  I  .(  I.IINI  1  6  I  • 

IK  AM  .  II -HI  .  DPMI  .NANG.RAD.F  BOUND. OMEGA. ALPHA. SO  .  JP.  IS.  ECS. 

:t  »PV 1 2 1  20i.EE  TVI l 20> . I  ERROR . TE TMIN. TE I MAX . BE TA1 . BE TA2. JLESS. 
31  2.1  ARRIV.Cf  H.Xl .CSECEL . CSECEl.CS.CB.CS I .LB  1 

C OHMON / Bt  K 2 /  D£LP< 16) .FXMF< 16) 

I  OMMIIN  /  BE  K  J  /  I  NAM  1  .  I  NAM  2  .  I  NAM  3  •  INAM4  .  INAM3.  I NAM6  »  I  NAM  7  .  IMAMS. 

1  INAMV.  I  NAM  10. I  NAM 1 1 . I  NAM I  2 . I  NAM  1 3 • I NAM  I  4 . I  NAM  I  5 . INAM16. 

2  TNAMI /. INAMI0. INAM19. INAM20 
C  OMMON/ BL  k  4/CE . CURE  NT 


COMMON/BLK6/TtMPt . TEMPI .DEN. RATE. NUM.NTOUR.V/fRO. I 
l  VMED 

DIMENSION  NAM6I  3  I  .NAM7<  3> 

DIMENSION  NAME  I  (  3 )  • NAME  2( 3  > • Nt 
DIMENSION  NAM  t  3  <  3 ) »  NAM I  4 (  3  *  »  N AM  15(3) 

DATA  NAMEI/2HDA.2MTR.2MD  ' 

DA  I  A  NAME  2 / JMPO »  2H IS. 2HS  / 

DATA  NAHE3/7MI0.2HNC.2MC 
DATA  NAME  4 / 2MPM . 2M0  T . 2M0  / 

DATA  NAMt5-2HOU.2MES.2HS  ■ 

DATA  NAH6/ 2HD1  •  2H-/P.  2HT  / 

DATA  NAM 7 / 2MSU • 2 MAC • 2HR  / 

DA I A  NAMI3/2HCL  -2HEC.2MC  / 

DATA  NAM14/2MSE .2HC0.2MN  ' 

DATA  NAMJ5/2MDS. 2HCA.2MT  / 

DATA  NAMlA/.’HEi  .  .  -PR.2HN  ' 
l  UN  3  -  I  3 
LUN4-1 
LUN5-3 
LUNA- I 
L  UN 7- 1 
LUNS-l 
LUN9-1 
L  UN  10-10 

BRANCHING  INSTRUCTIONS  FOR  SE  GHENT  ATI  ON 
IF  < I  NAM  I • EO. 1 >  GO  TO  9001 
IF( INAM2.E0. 1 )  GO  TO  9002 
IF( INAM3.EQ. 1 )  GO  TO  9003 
IF< INAM4.E0. 1 >  GO  TO  9004 
IF( INAM3.E0. I >  GO  TO  9003 
IF< INAMA.EO. 1 >  GO  TO  9004 
IF < INAM7.E0. I )  GO  TO  9007 
IF< INAM13.ED. 1 >  GO  TO  9013 
IF< INAH14.E0. 1 >  GO  TO  9014 
IFI INAM13.CQ. 1 >  GO  TO  9013 
IF< INAH16.EQ. 1 >  GO  TO  9016 
LUNIO- 12 
RP 1-3. I 4| 39 2600 
RPI2-2.0D0BRPI 
RP I HAF-RPI /2 .  OPO 
sorpi-DsoRr<RPi » 

SAY— I ■ ODO/SOTPI 
ACUCV-1 .0 


RAD-1.0 
PBOUND-O.O 
IFLG-0 
SO-O.O 
ILEV- I 
I  TRACE- 1 


ACCMIN  IS  TOtCRANCC  FOR  ACCEPTANCE  ANGLE < Dtr INED  IN  S/P  GENORB) 
HCfTNS  DEFINES  INITIAL  STEP  SIZE  FOR  ORBITS  'S/P  GENGRO  AND  PR  OLA  T ) 
rot  IS  T0LCRANT:E  FOR  ORBIT  INTEGRATION  (DEFINED  IN  S/p  ORBIT) 

VACC  I S  ACCURACY  FOR  VELOCITY  SPACE  MINIMA  (S/P  ION  AMD  ELEC) 
FXTFRNALS 


•SCATR 

DAtf 
DAtRf D 
DIVPOT 
fl  EC 
fl  PPN 
r INORD 
Fl  WOP 
(i»  Nn»n 


C  RE  AO  IN  DATA  AND  ORGANIZE  ESC  TORS 
CAI  L  EXEC  <  8.  NAME  I  > 

9001  I NAM  I  — 0 

IDIMY-Mt? 


N-NPOINT 

INITIALIZE  ARRAYS 
DO  I  )• I /NPOINT 
I  ROOT  <  J)-0 
C ION<  J ) *0 . 
CEIECC  ll. o. 
CPHOTO(.»)«0. 

CSf C ( J ) -0 . 

C  BSC  AT  (  If-o. 
SFCPRNi J) -0. 
CF^OTI#J>-0. 
CflONt  J ) -O, 
f SECTRI J ) -0 . 

PHI  (  .1 )  -0  .  O 
1  CONTINUE 


C2 


•  i ah  imiu  .i.'-if 

„  -«l  .  »•(».*  H.NA«t  • 

’  ,k  *  t  '•lif’’ 

IIOI  »UKfl4>  to*.  WU«((£L  l»f  ITtf'AI  IONS’  I  I  • 


•  MM  •  ..ft.v.4  !  '  •  ,».►•»*  I  )»•  •  ..  ..  i  Ik  i  I  .  •«  I  •> 

I  >  I  .it  «-,» ■  I  O  HI  * 

W*  I  1  I  ),(•-.•!  l,-v  • 

Hill  1*  tl|  il  I  I  |  VI  »  UML  I  |  OM  AND  •jmVI  U«IINI'<  •.«*'  *  <>  1 1  N  I  |  *«  S 


t  i.'MFuTt  NlM  InOIiLS  MJK  CURRkN*  LUlLlCMl’N  II  jinwiki 


C  DUUD  iotEnTIAl  or  SC  C I  ORS  FROM  POTENTIAL  A I  (.Mli  FOINTS 


(•0  4000  I  *  |  .NsEl  r 
F  •! CRSCC-  I  > 

N.  «l 
M  -L*l 

((0  4001  NJ.NI  ,n: 
J-SEC IND*  NJ  > 
PSCCTK 1  I  »-FHI»  J) 
4001  CONTINUE 
L  »LCK 

4000  CONTINUE 


L  START  ITCRAriON  PROCESS 
ITEft-P 

4010  NIOuR-0 


4  199  CONTINUE 

C  GENERATE  GRID  AMD  CALL  POISON  SOLVER 
CALL  E*EC  1  Q.MAnC  2  1 
900?  I NAM?  *  0 

*7? I  FORMAT  <8( tI.lPE12.5l > 

CALL  £*EC<8’MAMa> 

*004  Inamo-0 

NTOUR-MTOUR4I 
I  TER*I TERi | 

4100  FORMAT!/ •  SECTOR  PSECTR  CSECTR  ElEC  CUR> 

C 

C  COMPUTE  CURRENT  COLLECTION  FOR  ALL  SECTORS  AND  OBJECTIVE  FUNCTION 

C 

C 

C  COMPUTE  CURRENT  COLLECTION  DUE  TO  PRIMARY  PARTICLES 
C  AND  SCCONOARf  EMERGING  PARTICLES: 

C  KtPASS  COMPUTATIONS  IF  FLAGS  IpTL  AND  jpTL  CONCERNING  FINE  DETAIL 
C  STRUCTURE  ARE  NOT  SET  TO  ONE 
L-0 
IS-0 

4?00  IS-IS41 

IF« IPTL < IS) ,NE. 1 >  GO  TO  4200 

Mi*f ERSCCt IS) 

n?»L*AR 

NJ-l 

420 1  NJ-NJil 

J-SEC INO < NJ i 
JP-J 

IF (JDTL<  J) . ME . I )  GO  TO  4201 
IF | ISYM.EO.O)  00  TO  4210 
IF(J.L£-NN)  GO  TO  4210 

c  if  there  is  a  symmetry. save  computations 

c 

CIONl JT-CION.N-J4I ) 

CEL  EC  <  <I>*CELEC  <  N* J* |  ) 

CS€C!<J>-CS£CI<N-JM> 

C»SCAI« J)-C»SCAUN-Jf I » 

SCCPR1 1 J * "SECPR I ( N- J4 I > 

GO  TO  *?°? 

C 

4210  CONTINUE 

CALL  £«EC<8.nAME3> 

4003  I NAM I -0 

CALL  E*EC(8.NAM13> 

9013  l NAM 1 J 40 

420?  IF  INJ.l-T.N2>  GO  TO  4201 
L-L+KK 

IF  < I S ■ L  T . NSECT )  GO  TO  4200 


C  COMPUTE  CU«PfMT  COLLECTION  DUE  TO  SECONDARY  ARRIVINO  PARTICLES 

C 

L»0 

IS-0 

4250  IS-IS4I 

IF( IOfL< IS) .NC, 1 )  GO  TO  4250 
KK-PERSEC! IS) 

N2-L4RR 

NJ-L 

4231  NJ-NJ4I 

J-SECIMOINJ) 

JP-J 

IFI JPTL! J» .NE. I )  GO  TO  4251 
IF! ISTM‘EO.0)  GO  TO  4200 
IF<J.l£*MN>  00  TO  4240 
C  IF  THERE  IS  SYNMC TRY . SAVE  COMPUTATIONS 
CPHOTOC J»-CPH0T0lN-J41 » 

CSCC< j»»CSfC<N-jri > 

CPSCAT  <  J> "CDSCAT  <  N- j* I ) 

SECPRH! J> •SECPRNI N- ji ) t 
GO  TO  4232 
C 

42*0  CONTINUE 

C  COMPUTE  SECONDARY  CURRENTS 

JFi  |F4UL"3>.E0-I>  CALL  £*EC<8»NAME4  ) 

9004  INAM4-0 

IF.  IFAULT!  7)  .EO.  1  )  CALL  E  JtEC  (  8.NAMI  4  > 

4014  I NAM I  4*0 

IF ! IFAUt f<8) .€0. 1 >  CALL  E *CC « 8.NAM13 ) 

4015  I NAM 1 5 ■ 0 

IF  IFAULTM4t.E0.li  CALL  E  *£C  <  8.NAM1*  » 

4014  I NAM l 4*0 

4.’3?  IF.NJ.LT.N2)  GO  TO  4231 
L«L*RR 

IF! IS. Lf. NSECT )  GO  TO  4230 
C 
C 

C  COMPUTE  TOTAL  CURRENT  AND  SAVE  TOTAL  ELECTRON  CURRENT  FOR  SECTOR 
IS-0 

URITClLU*«»4*0J ) 

4101  FORMAT!//  J  POTENTIAL  TOTCUR  IONCUR  ElCCCUR  • 

IPHOTCUP  CNIPHOTCUR  SCLONDiUR  (MlSCCUR  RSCATCUR'/ 

2  EMIRSCAT  ELf  IND  CHI  ELfC  IT.'  //) 

WRITE ilUN*« 1 101  *  ITER 
«;’o  i s •  i s * i 


►  - 

DO  •  vi  I  J  •  NSt  i  I 

II  li-ll  •  1  ■  ,NI  .  I  ■  l.o  10  '000 

»)Dj  iiIju  sE(  II  -  I  HI. 

I  irtVf  1  I •NIHHR  ‘ *  t  Si C  f  R 1  I  > 

I  -.AVI  «  I  •  n  I  OUR  ••PStCTRi  I  > 
.ooo  roNiiNui 


WPI  If  <  I  "N9.  >01  0  •  |  1  f  j»  •  l 1 1*  J 

■01  0  I  OftMAI  ■  !  (  .  IUFAIIUN4  .  JJ.  '>•)  OR  II  I  II V*  FUNCTION  IS  .  IFtl?.*-' 


t  IF  ALCONAL  I  uf  (If*  Jt  L  I  1  Vi  f  UNCI  ION  IS  URtAlNt  P  .  GO  !U  Nfc  >  I  SlfP 
If  «ORJ.I  I  .  A!  U(  Y  »  GO  TO  4  '<>0 


IFiNlOoR.fO.il  GU  10  ’4uO 
L  l  NEC*  If  LURPINIS  MAVi  CHANGE (•  SIGN 
<  *  2  WUIIl  ■  t  > 

DO  /?I0  I- I  NStCT 

IF. IROOf « I • .fo.l  )  GO  TO  7210 

IF  iCSAVi  l  I  .NfOUR  I4CSAVI  .  I  .NIOUR-  I  >  .lC  .0.0)  1  *>  00  t  c  1  )  .  I 
7210  CONIINUf 

C 

C  CHECK  IF  CURRiNlS  OF  ALL  SECTORS  HAVE  CHANGED  SIGN 
K.O 

DO  7?20  I-l.NStCI 
IF  < IAOOI i I i .EO. 1 »  R ®R ♦ I 
’ ?20  CONTINUE 
C 

IFiR.iO.  N5E  C  T  )  WRITE '9  ♦».*30’ 

•?T0  lORMATi  all  CURRENTS  HAVE  CHANGED  SIGN.  NOW  REFINE  SEARCH  ViC»0*S 


IFiR .NE .NSECT)  GO  TO  7400 
C 

c  f  IND  Af  PRO  K I MA  T  f  ROOTS  FOR  INC  CURRENTS 

C 

DO  7?S0  I ■ 1 . NSEC  T 
IF i IPTL (I i.NC.i)  GO  TO  '250 
DO  ??40  JJ.?.N»OUR 
JSTAR  T»NTOUR- JJR2 

If  iCSAVi  i  I  .  jStART  itCSAVEi  I.  JSTART-D  .LE  .0.0)  GO  TQ  7280 
?40  CONTINUE 
C 

GO  TO  *250 
C 

??80  PSiCTRl I  .  • i PSAVC ( I . JSTART ) -PSAVC  » I .JSTART -1  > >/TCSAV£! I. JSTART  >- 
l  C  SAVE  <  I. JSTART- | ) )•! -CSAVC! I .JSTART- I ) ) TPSAVE < I . JS T ART  - I » 

C 

7?8S  CONTINUE 

WRITE  U.UN9. 7?90)  PSECTRi I ) iPSAVE I  I . JSTART >. PSAVC! I. JSTART- 1 i.I 
7240  FORMAT!  APPRO* I MATE  ROOTS  ARE •  • 3 ! 1 X . 1 PDI 0 . J > *  1 4  I 
7J30  CONTINUE 
C 

C  NC»W  DIVIDE  INITIAL  INCREMENT  *Y  5 
DPWI-DPMU5.0 
NTOUR-0 

C  RESET  FLAGS  TO  ZERO 

DO  7300  1-|, NSECT 
I ROOT  < I > -O 
7300  CONTINUE 

GO  TO  4499 


C 

c  modify  POTENTIAL  Of  SECTORS 
7400  CONTINUE 

C 

DO  7450  I -I. NSECT 

IF! IDTL! 1 ) .NC. I >  GO  TO  7450 

I  F  I  C SAVE  <  I  * N T OUR  )  .  L E  •  0  •  0  I  PSECTR!  U-PSCCTR<  D-DPHf 
IF  <  CSAVE ! I ,NTOOR> .GT .0.0)  PSECTR! I i -PSECTR! I )*OPHI 
7430  CONTINUE 
C 
C 


C  RESET  POTENTIAL  AT  GRIP  POINTS 
C 

44»*  L-0 

DO  4500  I-l, NSECT 

IF  < I DTL  < I ) . EO. O  >  00  TO  4500 

K-PCRSECtl) 

N2-LER 

Nl-Lil 

DO  4501  NJ-N1.N2 
J-SECINDINJ) 

PHI! J) -PSECTR! I » 

4501  CONTINUE 
L-L4R 

4500  CONTINUE 

C 

C 

4540  CONTINUE 


C 

C  REMIND  SHORT  FILE  POT OUT 
C  CHECK  SIZE  OF  ARRAYS 

IF  <  NT OUR . EO. 10  >  NTOUP-I 

C 

C 

C  RECOMPUTE  CURRENTS 

C 

00  TO  4144 


c 

4  ’OO  lOML  -  *OML  -  I 

IF! JOML.CO.OI  MRITE  <LUN4.47|0) 

4710  FORMAT  (21.  COARSE  CONVERGENCE  HAS  SEEN  REACHED. DO  ORDIT  f OL LOWING 
I  FOR  ALL  F ARTICLt  S  I 
DO  4701  I-| .NSECT 
IROOFi I i-O 

4701  CONTINUE 

IF( JOML.CO.Oi  GO  TO  4010 
WRITE  ILUN9.I30II 
WRITE  <  L  UMR . I  JO I  ) 

1301  FORMAT  III.  FINAL  CONVERGENCE  HAS  DECN  REACHED  « 


«Tnr 


C3 


ktO<"»  ['AID 

IMllU'  hlH'Bl  C  IftElIllUN  >  A  M  .  U  4- . 
i  Omhon  K»j  ht  I  »•  I  *  ■  •  t  mi  •  i  a  • 

i  OHM.  IN  KkJ  INMII  .  I.  INAH4.  INilX‘  .  I  xun>.  .  I  N*fl  M  NrtW*  ■ 

l  |  nxmv.  I  w*n  [  o  .  InAHI  1  •  l  N*m  IXADI  «.  I  n*HI  4  .  J  HA«r.r  1  N*m  a  . 

’  1NAHI  >M«m.  1NAMIV.  IN, 
l  OHHllN  BLk4  U.i  I'MXI 

I.  l«"U«  HI  K-i  '(nit-'Mi  I.MN'kAU  .  NU«  >nI  1>U*»  •  V.’t  Ml.i  .  I  HU.VUlN. 
t  v«iit 

.'xi a  a  •lUktNi  o.vcOio.uut) 

I'A  I  A  l>l  LP.t  ‘ HI  •  I  6*0.  Ol'U.  IaIH.uCO  ' 

1>.»TA  INAHl  .  iNAnr.  1NAH  I.  INAH4.  INAM5  0  •  O  •  V  .  V  .  V 
DATA  INANe.  In*«  >  .  1NAM«.  |NA«v  O.u.A.O, 

HAT  A  1  AAA  10.  INAMlI  >  I  AAA  l  .  I  MAN  I  J.  INAHl 4 -O. 0.0.0, V/ 

DATA  IAAMI  .  IMAM  l  6  •  INAM  l  '  .  1  MAM  l  B  .  |  NAM  I  ■».  I  AAM.-O  <> .  <1 . 0  *  0  •  O  •  0 
CAT  A  l(  HF  L  •  It  HP  (  .PIN. KAIL  .v/t  RO.  I  [  k  U  .  |  A .  VM4  l>  840.  al»> 

DATA  NUH.NTOUF  .k/UO/ 

END 

SllffcUljriMT  :  A  I  Kl  l»<  kASE  •  NANO  •  JOHC  .  [if-Hl  I 


If  All!  III1'  J.MCV  lllr;  |  NhUtt  It  hi  fpijIOns 

|»  M'll  I  •  I  I  '  .  At  .-(Ml.  GUN  IS  UOHk  INO 

J I  Ai  a  I  •  1  ‘  l  .  HOW  IIIK  I  ON  I  UNS 

II4III  I  IOMiMM  Cl  IAII  I  >  ill  III 

If  Mill  I  '  I  4  i  l.llNlAk  SPACE  CHARGE  IS  SI  I  Iff 

kl  AIM  I  CAS .  IOI  >  '  II AUl  T <  I  I  .  | | . 14  I 

I  I  I  UK  MA  I  •  .’0  I  3  I 

wr  i  n  a  iiNV.eoo  > .  ifaul  i  «  j> .  j-l .  1 4 1 

i.uO  FURHAI  *  U.BFlAl.S  INC  I  (  A  UNO  WHETHER  VARIOUS  PARTICLES  ARE  I  Ml  LUCE 
1C  .  1>  ON  NUT  INCIUINC  Uhl/ 

!<>•  I  UN  lilt  SlfP  RACE  I"  NOT  I*  HOT  Step  BACK  ILK  UK  GUN  1 1  ON 
I  Cl  I  L  .  S  .  I  MAR  G*  •  1  *  .  I  4  I  3  /  /  • 

<"  NIAO  IN  SURFACE  PROPERTIES  AT  GRIP  PUINTS 


l  l  f  AC  FIRST  SURFACE  HATER  I  AC 
WRITE  tlUM9.*0l> 

601  fORNAT  ill.ITTFi  OF  SURFACE  AT  IOCATION  J  */ 

I  I  ltd  IS  GOID.T  IS  Al.J  IS  AL  U«  1 1>|  ,  4  IS  QUAR  I  Z  .  9  IS  RAF  TON  14  » 


I  AC RACE  *  I 


■  READ  IND  DATA  AND  SURFACE  PRUPCRT  US .  ASSCNM  E  SURFACE  OF  SATIliITf. 


K l  Ah  <  L  UN5  •  .’O I  >  >  JL’JCAC  (  J)  •  I*  I  •  NPO 1  NT  l 
.'01  FORMAT!  I.*  I  .'I 

WRITE  LUM9.A02)  <  Jl  OC  AC  <  J  >  >  J  »  1  .  MPO  IN  T  > 

6>.’  I  ORNA  I  <  J  '  I  J  ) 

C 

C  RE Ai«  IN  SURFACE  CONDUCTIVITY  PER  SECTOR 
c  ICON-0  «  INSUI  ATOR)  .  ICON-1  .LONCUCTOM 
REAP) I  UNS.’Ol I  >  ICON!  I  I .1-1. NSECT) 

UR  I  H  1 1  UN9.6I0) 

610  FORMAT.  •  J*.4F  l  AOS  AWOU T  CONDUCTIVITY  OF  SECTORS*) 
WR  I  IE  .IUNV.60.-I  <  ICON!  I  I  .  1-1  .NSECT  > 


INTEGER  Pf RSEC.SECJND.Pf RPAN.PANINO 

CONNON  PSAVi  t  144.10)  .(.’SAVE,  i  I  44. 10  »  tPSIC  IR  I  I  44  >  .CSEC  TR  «  1  44  >  . 

1  PC  LEE  l  -  O  )  •  CU  HA*  •  I  44  >  .  t  NA<  <  I44F.E  I  A.  .'O  1  *  BSCAT  I  <  144). 

.'BSC  A  I.-.  1  44)  .BSC  AT  J<  I  44  •  .FHU<  .*0.40  >  . 

1  *NG<  40  >  .CPHOHXI  144  1  .  SUNANG .  AMGO  .  BOUNDC  <  .’0  •  40  •  •  BOUNCl  <.*0.40*. 
2ANGC  <  .’0  •  40  >  •  V  I  I  <  20 .  40  >  •  I  CHECK  •  20  •  40  » .RAT 10( I  3  F •  I  ROOT  .  144). 

) IF AUL  T  »  I  4  > . JLOCAll  144  1. ICON.  I  44 > . 

1  VI  »  20  >  .£v<  8  )  .NCt  V.  NT  IHCS.  ILEV.TIHIN.  20  >  •  T  I  HA*.  ’Ol  .  V  I  NUN  .  CO  I  . 

I  44 i .B< 144  t  »c  t 144) .BBi 1 44 ) .BNI 1 44  > • T W< 1 44 > . Dw< 1 44 > . 
itu. |44 • • T WOC OS .  >00> . 

I  If  l  G.NPOiNT .N. JGCOM. ISYN. IPOIS.MSECT .NPEROD.HPEROP. IOIHy . 
.'GAMMA.  DVDXI  70.40)  .CVDYI  70 . 4W  *  .  f  I  I  4  4  >  .  DC  l  I A I  .  DC  L  I  AY  . 
J»S'66.4fl>.*S<66>.«SSl 70 ) . 

I  VAR Be E  <  4 ) . T.DELT.SBOUNP.NPIH.POT.H. JI.RPI . RP I ? .RP I HAF .  SUTf  l  . 
.'SAY  •  TEMPI  1  .TENPE2.DE  NCI.DCNC2.PtNI  1  .  Pt  M  1  .  TE  HP  II.  fCHPIZ, 

J Tf HPR, LUNJ. CUN4.UUNS.  I  UNA. L UN  ».t UNO.  I  liNV.LUNIO. 

I  It'U  <  144).  JDTL4  144I.PERSECI  144)  .SECINO*  144).  I  PANEL  <  144  ». 

.’Ff  RPANI  14  4.41  .PANlNPI  144). 

1C  ION,  |*4  I  .CEL  EC.  |44».CSEC<  l  44  >  .  CSC  C  I  <  144  )  .  CF'NOTQ  <  l  44  »  . 

2CPN0  T  1  <  144  ►  .CBSCAT.  144F.CDSCA1  <144  >  .SECPRN<  144  >  .SCCPRH  144  )  . 
JPN | < 144) . CGUN. 1441. 

1  RASE . J0ML .DPMI . NANG. RAG. PBOUND. ONEGA. ALPHA. SO. JP  . IS. ECS. 

21  *PVI2<20  »  .  EF  TV  l  i  20)  .IERROR.  TE  TM I  N  .  TE  THAX  .  BE  TAi  .  BE  T  A2  .  JLESS, 
JL  J  •  CARR  I V  .CPM.  1 1  •  CSC  CEL  .CSECC1  .CS.CB.CSI  .CB1 


C  •  . . 

c  PURPOSE 

C  (M  THtS  $S*  .we  INPUT"  THE  NCCESSARr  PARANE"  FCRS  FOR  A  CRSf  STUDY 
C  RASE  • CASE  STUDY 

C  TENPII  SION  TENPERATURE 

C  TEHPI2  IION  TENPERATURE 

c  DCNII  : ION  density 

C  DCNI2  HON  DENSITY 

C  TENPE1  1CLECTRON  TENPERATURE 

C  TENPE2  SELECTRON  TENPERATURE 

C  DENE  1  SCCTRON  DENSITY 

C  DENE2  SELECTRON  DENSITY 

C  SUNANO  ISDN  DIRECTION  WITH  RESFECT  TO  ORIGIN  OF  ANOLCS 

C  ANOO  .-ANOCE  BETWEEN  FIRST  GRID  POINT  AND  ORIGIN  OF  ANGLES. 

C  S BOUNDS  OUTER  BOUNDARY 

C  DPMI  SINCRENENT  IN  POTENTIAL  IN  RV 

C  IPO  IS  .-FLAG  FOR  POISSON  SOLVER 

C  ISYN  SFLAG  ABOUT  9YNNETRT 

C  IOEON  SFLAG  ABOUT  OC ONE TRY 

C  NANG  .*  FOR  ANOULAR  SAMPLING  FOR  SECONDARY  PARTICLES 

C  NT  I HESS  FOR  MULTIPLICATION  OF  VELOCITY  LEVELS 

C  NP01NT s NUMBER  OF  OR  I D  POINTS  IN  ANOULAR  DIRECTION 

C  NSECT  SNUNBER  OF  SECTORS 

C  SUNAN0S ANGLE  BETWEEN  SUN  DIRECTION  AND  ORIGIN 

C  ANOO  I ANGLE  BCTNCCN  FIRST  GRID  POINT  AND  ORIOIN 

C  S BOUND SLOG  OF  RADIUS 

C  DPMI  S INITIAL  POTENTIAL  INCREMENT  <  USED  FOR  CONVERGENCE) 


CALL  DATE  CIDATE) 

RCADTLUNS.PP)  RASE 
99  FORMAT  ( 13  > 

WRITE  TLUNV.fBO)  RASE  > I  DATE 

♦VO  FORMAT  I 40X«  *KA9E»*. I3.B  DATE-B . AI0/40X. 23< •-* I ///// ) 

C 

C 

RE AD < LOWS. 5000)  TEMPI  I .TCMPI2. DENI 1 .DENI 2. TCMPC1 . TEMPE2. DENE  1 . 

I  DENC2 

5000  FORNAT (AE 10. 3 > 

WRITECLUN9.901 >  DENE  I .DENE 2. TEMPEl . TENPE2. DEN II .DCNI2. TEMPI  1 . TEMPI 
12 

♦01  FORNAT  Ml.l  DENE  I  DCNE2  TEMPEl  TEHPE2  DENI  1 

l  DENI2  TEMPI I  TEMPl2B/*< IX, 1PE10.3)//) 


READ <LUN3. 5001 >  SUNANO. ANOO. S BOUND. DPMI » IPOIfl. ISYN. IOEON. NANO. 

I  HUMES,  ILEV.  JONL/NPOINT.M, NSECT 
5001  FORMAT  <  4EI2.S. 712*313) 

WRITE  lLUNB.902 )  N.NPOINT .NSEC T . IPOIS .NT IMCS.NANOf ISYN, I GCOM . JONL 
♦02  FORMAT (11.1  M  NPOINT  NSECT  IPOIS  ITIHES  NANG  ISYN  IOEON  JONL 
I  •./!«.♦< IA>//> 

WRITE  l L UNO .901)  SUNANO. ANOO. S BOUND. OP Hi 
♦03  FORMAT  lIGt  SUNANO  ANOO  S  BOUND  DPHIB/41 1 X  ,  IPE 10 . 3 )  // 

I) 


C  READ  IN  FIAOS  FOR  OPTIONS! 


C  JFAULTUI-l 

C  IFAUL  Tl 2)*1 

C  IF  AUL  T  <  J )  •  I 

C  IFAUL  f  < ♦)•! 

C  IFAUL  T  c S > *1 .CMC  PHOTO  CUR  COMPUTED 

C  IFAUL  KA)»I.RECriVlNO  PHOTO  ELEC  CUR 

C  IFAUL l( 7)-I.RICV  SIC  CUR  COMPUTED 

C  IFAUL TJf)-l .RECV  BSACT  CUR  COMPUTED 

C  IFAUL  f(9»-l  .FMERO  life  INDUCED  BY  PROTONS 


ION  CURRENT  IS  COMPUTED 
ELEC  CUR  IS  COMPUTED 
EMCROINO  SECONDARY  CUR 
EMERGING  BSACT  CUR  IS  C 


C  SET  UP  SURFACE  PROPERTIES 


DO  100  J-l. NPOINT 
REWIND] 

>  RE  AD  <  L  UN  J»  301>Jf!RST 
F  ORNA  I  C  I  :* » 

IF  i  JtOCAL  <  J)  .ME  .  Jf  IRST  >0O  TO  111) 

Rl AD < L UN J. 401  >  DC L MAX  <  J ) . C MAX  1 J) .CPMOMX  <  J) 
FORMAU3I.  JFI0.3) 

RCAD.IUNJ.50I  )  BSC AT  I <  J> .BSCAT21 J) ,B$CAT3<  JF 
FORMAT  <  3X.4F  10.3) 

Hi  AD 1 1 UN J . 502  F  DELP* J» ,EXMP< J) 

FORMAT, JX.2F 10.3) 

CONTINUE 


pe  Turn 
END 

SUBROUTINE  INSECT 

INPUTS!  NPOINT.NSCCT 
OUTPUTS  PERSEC . SEC IND  -  VECTORS 
INTEGER  I . J.k  »C  » TEMP ( I  44 ) 

TEHP<...)  MUST  BE  DIMENSIONED  TO  MAX  NUMBER  OF  POINTS  IN  A  SECTOR 
DATA  FOR  EACH  SECTOR  BEGINS  ON  A  NCw  LINE.  PIRST  NUMBER  IS  NUMBER 
OF  POINTS  IN  SECTOR  FOLLOWED  BY  INDICES  OF  THESE  POINTS 
DATA  FORMAT  IS  1*13 

THIS  S/P  IS  CONCERNED  BY  THE  GEOMETRICAL  ORGANIZATION  OF  THE 
DIFFERENT  SECTORS.  A  CONDUCTING  SECTOR  FIAT  CONTAIN  SEVERAL  PAFFCLS 
.WITH  A  MAXIMUM  OF  4  PANELS  F*CR  SECTOR.  A  PANEL  IS  A  SCRIES  OF 
ADJACENT  CONDUCTING  ORID  POINTS.  WE  HAVE  ONE  PANEL  PER  SECTOR 
FOR  INSULATORS. 

/PANEL  IS  NUNPER  Of  rAM€L3  PER  SEE  FOR*. 

PERPAN  IS  NUMBER  OF  GRID  POINTS  PER  PANEL 

PAN  I  HO  IS  GRID  POINTS  INDICES  STORED  CLOCKWISE  PER  PANEL.  THIS 
MAKES  THE  NUMERICAL  INTEGRATION  OF  THE  CURRENT  EASIER. 

VALUES  ARE  STORED  AS  FOLLOWS!  ORID  POINTS  OF  THE  FIRST  PANEL 
(FIRST  SECTOR)  EXI  31.32.1*2..... 

.THEN  GRID  POINTS  OF  THE  SECOND  PANEL (FIRST  SECTOR)  ETC. 
BSBBBSSSSBBaBBSaStSSBBSSBBSBSBBSBSBBaSSBSBtBBSBSBSBSBBSBBSBBtSBSSSBI 

INTEOCR  PERSEC. SEC IND. PERPAN. PANIND 

COMHON  PSAVE ( 144.10) .CSAVE (1*4.10) .PSCCTR (144) , CSECTR ( 144 ) » 

I  DELEE ( 20  > • DEL MAX (144) *CMAX  <144>,ETA(20>» BSC ATI ( 144  >  » 

2BSCAT  2H  44  >  .BSCAT3H44).PH0(  20*40)  » 

I ANG <  40 ) . CPMOMX < 144) .SUMAMO. ANOO, BOUNDL < 20.40 > .BOUND I < 20. 40). 
2AN0L<20.40>»V!I(20»4O>,  ICHCCM  20, 40 )  .RAT  I0(  I  J)  .  IR00TH44), 
3IFAULTH4).  JLOCALH44).  ICON(  144), 

I VI (20) .£V<B>.MLEV,NTIHCS.!LCV.T!NIN(20>  r UMAX (20) »VINUM<20> . 

2R(  144  ).B(  144)  .C(  144),  BBH44)rBWH  44),  TW(  144).  DW(  144)  • 

JE  W  (  1 44  )  .  T  WOC  OS  (  700  )  . 

1 IFLO. NPOINT. H.IOE ON. ISTM. IPOIS. NSECT. NPE ROD. MPEROD* I DINY. 
20AMMA.DVDXC  70.4B),DVDY( 70.48). Y( 144), DEL TAX , DEL T AY . 

3YS<  66.48  > . XS<66 ) , XSS( 70> . 

1  VAR 01 E ( 4) »  T .DEL  T . 5POUND »  NDIH  »POT  »H, JJ . RPJ . RPI2 .RP/MAF r SOTPI . 
2SAY. TEMPEl. TEMPE2, DC NE1. DC M€2. DENI  1. DENI  2. TEMPI 1.TEMPI2. 
3TEMPR.LUN3.LUN4.LUFF3.LUH6.LUN7.LUN8.LUN9.LUNI0. 

1  IDYL ( 144  > , JDTL ( 144 > .PERSEC ( 1 44 > , SEC IND( 1 44 ) . IPAMCL < 1 44 1 . 
2PERPAN< 144.4) ,PANIND( 144), 

IC ION (144) , CEL EC ( 144) >  CSEC  < 144) .CSEC 1<  |44>,CPHOTO< 144). 

2CPH0 Tl (144) .CBSCAT  < I  44) .CBSCAI 1 1  44  » .  SCCP*N< 144 > .  SECPR1 (144). 
3PM I ( 144) »COUN( 144) . 

I XASC.JOML. DPMI. NANO. RAD. PBOUND.OMEOA.ALPHA.SO.jp. IS. ECS. 

2CXPVI 2( 20 >.EFT VI (20). IERROR. TE THIN. TETMAX.BCTAI .BCTA2.JLCS8. 
JL2. CARR  I V.CPN. XI. CSCCCL.CSECEl.es. CD. C91.CB1 


L-0 

DO  100  l-l .NSECT 

READ <LUN3. 20 MK.<  TEMPO >.J-1  .K>  ) 

WRI  TE  <  LUN9. 40  )  I .  (K  »  (  TENP(  J).J-I,K>> 

40  FORMAT  (IX  .  BSC  C  TOR  NUMBER  I.IM  J  VALUES  ARC 
20  FORMAT ( ( 1*14  )  ) 

PERSEC < I >-R 

DO  90  J-l.K 
SECINDi JFL )-TCMP( J) 

90  COMTINUC 

L-LFK 

100  CONTINUE 

IF(L.NE .NPOINT >G0  TO  ♦♦ 


DO  *0  l-I.FFF-OINT 
If<SCCINP<!>.LC .0 )00T0  97 
IF <SECIND< I ) .GT .NPOINT lOOTO  9* 
CONTINUE 
k-NPOINT  ~ I 

OO  80  I • 1 »K 
L-IFI 

DO  70  J-l. NPOINT 

IF  (SIC  INt><  I  >  .CO.Sf  CIND,  J)  lOOTO  98 

CONTINUE 

CONTINUE 


C4 


ir- ifanei « i i 

RCA  D.LUN*..  ?!>»  iF’tkFANl  I.  J».  J-l,  in 

Ml  TEt  LUNv.  901  •  I  •  IMnEL  i  I  I. *F ERF  AN*  I  .  J  •  .  .»=  I  •  IF  > 

0  CONTINUE 

I  fOKHAI  >1». (SECTOR  NUNHR  I*1M  NUMPCft  OF  »  ANELS  (.12. 

1  t  NR  OF  OR  IP  KOIMfS  PER  fANELI«414l 
REAP  U  UH5.-*0»i  FAMINE. .  J  I  .  J-  >  .  NPOlNT  > 

IF  (IF  AIM ft  IJ). EO.O)  RETURN 

REAP  tLUN3«J0>  ! IDTL* t »•!«! -NSECT) 

WR  I  TEi  LUN9.  900  )  .  ill  TUI  )  .  I  -l  -  NSECT  ) 

FORMAT  >/.  104. •SECTORS  WHERE  WE  WANT  A  FINE  STRUC  TUfcE  */  i  1  i>  1  4  >  > 

REAP  i  L  ItNS .  ?0  1  I  JPIL  (  J»»  J-l  .Nf-OINT  l 
WR I TC  4  EON A. 902  *  cJOYL»Jl.J»t  • NPOlNT ► 

’  FORMAT </■ 101. (GRIP  POINTS  WHERE  WE  WANT  A  FINE  S IRUCTURE t • f 16 1 6 i 
RETURN 

WR 1 TC  U  UN9 . JO  > 

FORMAT. t  ERROR  IN  SECTOR  PaM«./*/> 

WRI  TCU-UNV.  J5»L.NF0INT 

FORMAT.*  NUMRER  Of  INPICES  ’*.13. «  IS  NOT  EQUAL 
ITO  MUMPER  OF  POINTS  -t.|3> 


STOP 

MR  '  T  E  <  l  UN  V  .  30  ) 

WRITE ILUN9. 31  ' 1 • J. S£CINP<  J) 
PORMAT**  INDEX* S. 13. ( !  •  INPEX 


STOP 

97  WRITE. L  UN9 • 30 > 

WRITE>LUN9. J2)I.*CCIMD< I> 

J?  FORMAT!*  INDEX!*. 1 J.«»  -* . 1 3* •  IS  LESS  THAN  UNITY*) 


STOP 

*6  WR ( TE . LUN9 • JO  I 

WRITE <LUN9.JJ>I.SECINP< I ) .NFOIMT 
33  FORMAT!*  1 NDf X  < *.  I 3>*  >  •(•|)i*  IS  GREATER  THAN 
1  THE  MUMPER  OF  POINTS  •*.I3> 


I  In  inn  i  .  II  J  •  -  •  1 

IIHIMMI.  II  J  INI'. 

I  Miami  .  :  (  I  >  »  »(J 
l  (uiMMT  ill'  ••»£!.  Imp  nj 

on  to  i i i i 

114  i  ONT  Ini  It 

till  CMNliNtll 

l -l  *► 

II.*  CONTINUE 


now  RE  Sc  I  APR A  r 
INI  114  J  •  »  .  i 
SEC  INt<<  Jl-II 
114  CONTINUE 


STOP 

ENP 

SUBROUTINE  FINGRO 


C  SFT  UP  NEW  INPICES  OF  GRIP  POINTS  PER  PANEL « F AM  I NP > 


UO  ,’M  I  -1.1  Oil. 
K-F  FRSf  C«  I  > 


I- 0  .'*jO  N  j-Nl  .N  • 

J«F-AM|Nl>«NJ> 

if  . n  oNi i » .eo.o.anp. istm. to. o*  go  to  rsoo 

I  HU  MM  T  .  N.IIJ-’UJI  1-? 

I IMIMMV  4  N  J(3-  1  )-J*3-> 

IWHwrlNjU  >- J(3 

II- 11*3 
GO  TO  230 

?300  1 1- I  14* 

I  DUMMY  <  I  I*3>«J (3-2 

I  DUMMY  < I  I “ 4 l -PAN  I NP ( N Of  1  >«3 

I DUMMY  I  I!-J!»JP1-1 

1  Dummy < 1 1 -2) -PanInd<nj*i >• J- 1 

I DUMMY ( I  I  -  1  >-0*3 

IDUMMT<1I  >-PANlND<NJfI >*3-2 

GO  TO  2301 

230  CONTINUE 
2301  CONTINUE 

L-L  fR 

231  C0MTIMJ€ 

c 

CRESET  ARRAT 

DO  240  J- I .NPOlNT 
240  PAN I NP4  J 1 ■ I  DUMMY  <  J  ) 


TO  RESET  ALL  ARRAYS  FOR  A  FINE  DETAIL  STRUCTURE  OF  SURFACE 
IN  ORDER  TO  RESPECT  GEOMETRY . InTERVALLES  ARE  DIVIDED  BY  THREE. 

INTEGER  PERSEC . SEC  I NO. PE RP AN. PAN I NO 

COMMON  PSAVE ( 144. I01.CSAVE' 144* 10) .PSCCTR! 144) .CSCCTR! 1441 . 

1 OELEC  <  20 » . DELNAX  < 1 44 ) . EMAX I  I  4  4  > .€  TA<  20) • PSCAT I <1441. 

2PSCAT24  144) .PSCAT34  144 > . PHO» 20 . 40 >  » 

1 ANO 4 40 • • CPHONX 4 1 44 ) . SUNANG . ANGO . POUNDL < 20 . 40 1 . POUN P I ( 20 . 40 > * 
2  ANGL4  20.  40).  VI I  <20. 40  I  .(CHECH! 20. 40)  .RATIO!  1  J» .  I  ROOT!  1441. 
JIFAUtT!l4>.JLOCAL< 144). ICON! 144). 

IVH20>.EV(B>.MLCV.NTIMES.ILEV.TIMIN(20).TIMAX!20)  .VINUM(20». 
2A!144).P< 144  ).C < 144  * *PP< 1441. PW< 1 44 ) • TU< 1 44 > . DW< 144 > . 

JEW 4 144 ) . TWOCOS! 700) » 

I IFLG .NPO INT  «M. I GEOM . IS  !M> IPO IS .NSECT .NPCROD  »  MPEROD  » I OINY . 
2GANMA.DVDX! 70 . 46 > . DVD Y < 70. 46 ) » Y ! 1 44 ) . OEL TAX . PELTRY . 
3YS(44.48).XS< A*).XSS< 701. 

I VARPLE  <4).T.DELT . S POUND. NO IN. POT  >  H . J  t . RP I .RP 12. RPIHAF .SO TP I . 
7 SAT .  TCNPC 1  .  T£»*>£2.0£M€l  . D£N€2,B£Ht  I .  PEN !  2 •  T ENP  1 1  .  TEMP  12. 
3TENPR.LUN3. LUNA. LUN5. LUNA. LUH7.LUN8.LUN9.LUN10. 

1  I OTL ( 144  > . JDTL  < 144 ) .PERSEC < 144 > .SEC1ND! 144 ) . I PANEL ! 1 44 ) . 
2PERPAN! 144.4) .PANIND! 144) . 

ICION4 144). C€LCC(144>.CSEC< 144 l.CSECt! 144). CPHOTO! 1441. 
2CPMOTI <144) .CDSCAY  <144) . CPSCA1 <1441 .SECPRN! 144) .SECPRl <144). 
3PMII 144) .CGUN! 144) > 

1RASC. JOML .DPMI .NANG.RAD.PPOUND.ONCGA.ALPHA.SO.jp. IS. ECS. 
2CXPVI2! 20) .EFTVI! 20  > • 1 ERROR. TETNIN*  TCTNAX  *PETA1 . PETA2*  JLESS* 
JL2. CARRIV.CPH. XI. CSECEL.CSECCl.es. CP. CSi. CPI 
EQUIVALENCE  ! IROOT < I > . IDUMMY! I > > 


I  OLD -NSECT 
JOLD-NPOINT 
NPOlNT- JtJOLD 
ANGO-ANGO/3.0 
SUNANO-SUNANG/3.0 


C  FIND  NEW  NUNPER  OF  POINTS  < PERSEC >  PER  NEW  SECTOR 
C  IF  AN  OLD  SECTOR  IS  INSULATOR. IT  IS  PROKEN  INTO  3  NEW  SECTORS 


C  FIND  NEW  FLAGS  OF  CORRESPONDING  GRID  POINTS 
CFIRST  SAVE  OLD  VALUES 

C 

DO  10©  J-l.JOLD 
IF ( JDTL I J ) .€0.0)  GO  TO  102 
IDUMMY! J4J-2)-l 
I DUMMY! JP3-I >«l 
I DUMMY! 3*3 >  >1 

00  TO  JOO 

102  IDUMMY! J*3-2>-0 
I  DUMMY  I J* J- 1 >-l 
I DUMMY  <  J*3  >-0 

100  CONTINUE 


C  NOW  RESET  ARRAT 

DO  110  J-l. NPOlNT 
110  JO  TL  <  J ) - 1 DUMMY  <  J ) 


C  FIND  NEW  INDICES  OF  CORRESPONDING  GRID  POINTS 
L-0 
II-O 

DO  112  I-l.IOLD 
(•PERSEC! I) 

N2-L4* 

NI-LM 

00  >13  NJ-NI.N2 
J“8EC IND«NJ> 

IFf ICON! I ) .CO.O.FND. ISYM.E0.2>  GO  TO  1100 

I  DUNN  Y  !  N  J*  I- 2  )  •  j*  3 -2 

IDOMHV(MJ«J-|  >-Jt 3-1 

IDUNMV<NJ*J>  ->*J 

II-II4J 

SO  TO  IIS 


L-0 

II-O 

DO  120  I-l.IOLD 
(-PERSEC! I > 

IF  ( ICON! I > • CO • 1 1  II-II41 
IF  <IC0NII>.E0.1)  I DUMMY ! 1 1 ) -3*R 
IF  < ICON! I > . EQ • 1 )  SO  TO  120 
II-II+3 

IDUMMY! I 1-2) -I 

IFIISYM.NE.O)  IDUMMY! 1 1 -2) -2 
I  DUMMY  < 1 1 - 1 >  -K 
1  DUMMY < I  I  > • 1 
IF  <ISYM. NC.O)  I DUMMY ! 1 1 ) -2 
120  CONTINUE 


C  NOW  REORGANIZE  ARRAYS 
DO  130  I-I. NSECT 
130  PERSEC < I > - 1  DUMMY  1 1 ) 

C 

C 

C 

C  SET  NEW  FLAGS  IDTL  FOR  SECTORS 
Il-O 

DO  140  I-l.IOLD 
IF  ( ICON! 1 > .€0. 1 )  I I-I I M 
IF! ICON! I). CO. I>  IDUMMY ! 1 I >-I 
IF! ICON! I ) .EO.O. AND. IDTL! I ) .CO. 01  00  TO  130 
IF  < ICON! I). EO.O. AND. IDTL! I >. CO. 1)  00  TO  1A0 
00  TO  140 
ISO  II-I143 

IDUMMY! II-21-0 
IDUMMY! I I-I >-l 
I  DUMMY  < 1 1 ) -O 
00  TO  140 
t AO  II-II+3 

t DUMMY! II-2>-l 
IDUMMY! 11-1 >-l 
I  DUMMY  1 1 1 ) • I 
140  CONTINUE 


C  NOW  REORGANIZE  ARRAY 
DO  170  I -1. NSECT 
170  IDTL ! I > -IDUMMY! I > 


C  SET  UP  NEW  NUN PER  OF  ORID  POINTS  PER  PANEL 
II-O 

DO  270  I-l.IOLD 
IP- 1 PANEL  < I ) 

IF  <  ICON!  I  >  .CO.  I  >  n-im 
IFi ICON! I> .CO. I )  I  DUMMY  < 1 1 ) -IP 
IF< ICON! I >. CO. II  00  TO  200 
II-II93 

(DUMMY! I 1-21-1 

IF ! ISYM.NC .0  >  IDUMMY! 1 1-21-2 

IDUMMY! II-l >-IP 

I DUMMY  <11  >-l 

IF! ISYM.NC. 0)  I DUMMY  4  1 1 ) -2 

10  -IDUMMY! *1-2) 

DO  273  L-l.ID 
I PUM< I f -2.L  *-l 
273  I DUM ! 1 1  » L  > • I 

C 

2D0  DO  290  L-I.IP 

IF  < ICON! I > .CO. 1  )  IDUNI II.L l-PERPAN! I.L * 
IF! ICON* I > .EO.O)  (DUN! II  - 1 . L  > -PfRPAN! I »L » 
240  CONTINUE 
270  CONTINUE 


C5 


l panel*  [1'lliuwmii 

i*  'ir-mmi  « I ) 

IhJ  295  I  *|  .  IP 
PERPAN i  I  .1  »-lDUm  l  .1  » 
.'95  CONTINUE 


f  ONIHHT  T  I  W  |  T  T  OP  New  SI  C  TORS 
11-0 

Ot)  300  I-I.IOLO 

IP  < ICON* I  ' .EG. 1  )  II-IIP1 

if  c iroMi  i  > .Eo. t >  iDunmim.i 

IP<  ICON!  I  >  .Fll,  |  >  GO  TO  300 


I  I 


!i*3 


I  DUMMY <  11*2) 
IDOmmyi  I  1-1  1 
I  DUMMY!  | f  » 
.300  CONTINUE 


MOW  REOEUANIZE  ARRAYS 
DO  3 VO  tOiHSCCT 
ICON' I ) -1 DUMMr . ( » 
310  CONTINUE 


C  MOM  RESET  SURFACE  PROPERTIES 

C - - — - - - - 

C  FIRST  SAVE  Ot  -  VALUES 
DO  450  J-l.JOLD 
l  DUMMY  <  J  )  -JLOC AL  I  J  » 

450  CONTINUE 
C 

DO  4A0  J- 1 »  JOL  D 
JLOCAL  <  J43-2  I  -  I  DUMMY!  J) 
JlOCM.  !  J*3-l  >  - 1  DUMMY  <  J) 
-H.OCAL  I  J43  )  •  I  DUMMY  (  J) 

440  CONTINUE 


CF1ND  NEW  SURFACE  PROPERTIES 

C 

DO  470  J-l.NPOINT 
REWIND  L  UN J 

400  READ  HUN3. 500)  JP IRST 
500  FORMAT  <  I2> 

ir I JLOCALI J> .NC.JFIRST) 

RCAOILUNJ. JOl »  DEL  MA* ( J 
301  FORMAT I 3X  *3F 10.3 > 

READ! LUN3. 301 >  BSCAT 1 < J» , BSCAT?! J > . DSCAT3 < J) 

READ  < LUN3. 30 1 >  DELPC J).EXMP< Jl 
470  CONTINUE 

!■ 

WRITC!LUN9.900) 

900  FORMAT  < / / 1  OX . • THE  FINAL  DETAIL  STRUCTURE  IS  NOW  SET  UP4/10X.40 
I  <•-«>> 

C 

C  WRITE  NEW  VALUES 

C . — . . 

WRITE  (CUM?. 901 
WRITCILUN9.902) 

WR I TE  I LUN9 . 901  > 

WAITCIIUN9.902) 

WR I  IE ( L  UN9 *  901 >  ( PERSCC  *  1  > 

WR I TC ( LUN9 . 902 1 
WRITEILUN9.901 )  ( IDTL  < I > 

WRITCILUN9.90?) 

WRX  TE I LUN9.901 »  ( PAN  I NO! J) *  J-| «  NPOI NT ) 

MRITEIl.UN9.402> 

WRITCILUN9.901 )  <  ICON! I ) , I-l .NSECT ) 

WRITE (LUN9.402) 

902  FORMAT I / > 

901  FORMAT  1 32121 
00  903  I- I .N9CCT 
IP-IPANEL! I» 

WPITCIIUN4.402) 

WRITE! LUN9.90I )  ! PERPAN! I »L ) »L- 1 ♦ IP > 

903  CONTINUE 


< JOTl! J). J-I •MPOINT) 

<  SECINDl J) . J>1 . NPOI NT  > 
>1-1. NSECT) 

. NSECT) 


RETURN 

END 

SUBROUTINE  I NTPOL < DUMMY » 


C  PURPOSE!  TO  INTERPOLATE  VARIABLES  FOR  FINE OR ID  STRUCTURE 


DIMENSION  DUMMY! I > 

DIMENSION  XX! 144)  »  Y  Y  ! I  44 ) »  D< 1441 
INTEGER  PERSCC. SEC INB. PERPAN. PANIND 

COMMON  PSAUE ! 144* 10) *CSAUC! 1 44* 10  >  >PSCCTR< 1 44 ) . CSECTR! 144). 
1DCLEEI20)  .DEL  MAX*  144). CNAXI1 44). ETA  (20). DSCATDj  44). 

2BSCAT2! 1 44 > .BSCAT3! 1 44 > >PHO! 20* 40) . 

1AN0I40) .CPHOMX! 144) .SUNAMO.ANOO. BOORBL ! 20*40) .BOUND! 120.40) » 

2 ANOL! 20*40). Will  20. 40). ICMECK* 20*40 > »RAT 10113 1 .(ROOT! 144)* 

3IFAULT! 14) * JLOC AL! 144). ICON! 144) r 

I VI ! 20) *EV!B  > .NLEV*NTIHCS* ILCVfTININ* 20  > • TIMAX  <201 » VINUM! 20 ) . 

2AI |44>.B!144).C! 144 ) * BB! 144 > *  BN! 144 ) « TW1 144) *0W! 144)* 

JEN! 144  f  * TWOCOSt  700 I * 

1  If LO. MPOINT. H. IOC OM. ISYH* IPOIS. NSECT *NPCROD.MPCROD. I  PINT* 

20AMMA »  DVBX 1 70  *  48 ) *  DVDT ( 70  *  4B  >  «  T  < 1 44 > , DEL T AX • DEL TAY • 

3YS!4A*40>  »XS< 4A> *XSS! 70) * 

I VARBLE 1 4 ) . f .DEL T »9BOUNO*NB1M*POT  »M. J1 *RP I *RP(2»RPIMAF  »SOTP| • 

2SAV . TEMPI 1 » TCMPC2 . DEN* 1 » DEN* 2 . DENI  I . DENI  2 . TENP 1 1 . TENP 1 2. 
3TFMPR*LUNJ«LUN4.LUNS.LUN4»Li#N7*LUNB.LUN9.LUNI0» 

I IDTL! 144). JDTL< 144). PERSCC! 144). SCCIND! 1 441* (PANEL  1144)* 

7PSRPRN! 144*4) .PANINB1 144) • 

1C ION 1 144) .CCLEC! 144>*CSCC( 144). CSEC I! 144 )*CPMOTO! 1441  * 

2CPM0T 1 ! 144 ) >  CBSCA  T 1144) . CRSCAt 1144) .SCCPRN! 1 44 ) .SCCPR1 1144)* 

3PHII 1441. COUNI 1441* 

I * ASE . JONL » BPM | * NANO * RAB . P BOUND . ONE OA . ALPHA * SO * JP *  I S » EC S » 

2IXPVI2! 20) .EFT VI 1 20) . (ERROR. TE THIN. TCTMAX. BE T At .BET A2.JLESS. 
3L2.CAARIV.CPM.Xl .CSC CEL .CSCCC 1 *CS*CB.CS1 *CB1 
(Out VALENCE  I XX! I >.A« I ))*! YYI1 ).BB! 1  1 1  * « D< 1 1  * BN! 1 > ) 

IF  SECTORS  ARC  CONDUCTORS. IN TERPLOAT ION  IS  BONE  PER  PANEL 

IF  SECTORS  ARC  INSULATORS. (NfCRPOLAf ION  IS  BONE  BETWEEN  ADJACENT S  SECT 

DESCRIPTION  OF  VARIABLES 

JSf ART  t |NDtC(  WHERE  TO  FIND  FIRST  OR IB  POINT  OF  SECTOR 
XX  ARB  YY I TERPORAY  f  I  GRADE  FOR  IRTCRPOL AT  ION 
B.C.B  COEFFICIENT  FOR  SPLINE 

jStAAT-l 


!  OOP  OVIK  | KINS 
1000  | -III 

n  <  i  .i.r.Nsri:  r  *  m  iunn 

C  OIJ  DlMbKINfS  SHE  MIS  II  INSUI  AKINS  'IN  CUNDULlUFS 
IF  !  I  LON!  I  )  .EQ.Ol  i,u  >1)  lO 
C 

■:  MOW  DO  INIINPIUAIION  MIN  CONDUC  TORS  .f  IND  NS  OF  PANEL  5 


IP*  IfANf  l  <  1  , 

C  FIND  NR  OF  (.Nil*  POINTS  PH*  PANEL  AND  ACCUMULATE  F  UNI' T I  ON  VALUES 
C  WMF N  JDJl  I  n«  | 

C 

DO  2  1 1-1  .  IP 
JP-PINPANi  1.11  * 

JEND- JP9 JS  FAN  T - J 

C 

C  NOW  ACCOMUHt ATE  DATA 

JJ-!> 

1*0  I  JI-./STA KlrJkNP 
»J-  J.J9I 
J -PAN IND! J»  I 

IF  ■  JUtlUt.tO.ll  XX!  JJ)*l*EV  3  AYS  t  Ji  -  l  > 

IH  JDft  (  JV.EO.  I  >  I  Y  <  J  J  >  -  DUMMY  !  Jl  ) 

3  CONTINUE 

C 

C  NOW  CA( I  INTERPOLATION  NOUTIWC 

C  IF  JJ-JP. NO  INTERPUI  ATKIN  NEEDED  F OF  THAT  PANEL 
IF  IJJ.EO.JPl  00  TO  a 
C 

CAtl  SPLINE  ( JJ.XX.YY .  B .C . D 1 
C 

DO  7  Jl-JSTART. J£ND 

j— pan i no ! ji > 

IF! JDIL ID.EO.OI  DUMMY! J ) -SP IDER! JJ. DEL TAYS1 JI -1>.XX.».B.C.D> 
7  CONTINUE 


8  JSTAN  t ■ JENPF I 

2  CONTINUE 
00  TO  lOOO 
C 

c 

C  INTERPOL  AT  ION  FOR  INSULATORS 


30  CONTINUE 

C  00  INTERPOLATION  OE  EXTRAPOLATION  BETWEEN  KNOWN  SECTORS* 

C  FAKING  INTO  ACCOUNT  THE  SURFACE  PROPERTIES  OF  SECTORS 

C 

IF! IDTL! I > .EO. 1 >  JS TART- JS TART ♦ PERSE C ( 1 ) 

IF! IDTL! 1 > -CO. I >  GO  TO  1000 
C 

C  SEE  IF  WE  CAN  DO  AN  INTERPOLATION 
Jl-JSTART 
Il-I 

11  II-Il-l 

IF1I1.LE.0)  GO  TO  20 
Jl-Ji -PERSCC! I  I > 

IF! I0ILI II >.EQ.O>  GO  TO  11 

J2-JS7ART 

12  I2-I2F1 

IF! 12. GT .NSECT )  GO  TO  30 
J2-J2»PERSEC<!2-1 > 

IF1IDTLII2).CO.O)  OO  TO  12 

C 

C  FUNCTION  IS  NOW  KNOWN  AT  SECTORS  II  AND  12 
C  NOW  CHECK  IF  SURFACE  PROPERTIES  ARC  IDENTICAL  AT  II  AMDI2 
IF  < I CON 111). ME . 0  >  OO  TO  20 
IF  (  ICON!  12)  .NC  .  O  >  OO  TO  30 
JJ-SECINDl!) 

JJI-SECIND! I | ) 

JJ2-SECIND! 12) 

IF  (  JLOCALI  JJ1  )  .NE.  JLOC  All  JJ)  )  GO  TO  20 
IF  * JLOCALI JJ2) .NE. JLOCALI JJ) )  GO  TO  30 


40  DUMMY! JJ>-! DUMMY  I JJ2) -DUMMY (JJI ) )/(Y!JJ2)-Y(JJI ) >«< Y< JJ) - Y 1 JJl ) ) 
I ♦ DUMMY  I J Jl  ) 

IF! ISYM.C0.2)  DUMMY ! NPOINT- JJ9 1 ) -DUMMY  I JJ) 

JSTART-JSTARTfPtRSCCII > 

OO  TO  I OOO 
C 

C  DO  EXTRAPOLATION  FROM  R I DMT  OF  I 

20  It-I 
Jl-JSTART 

21  11-191 

JI-JI9PERSEC1 11-1 > 

IF  I  ICON! (I).EO.O)  OO  TO  21 

12-11 

J2-J1 

22  12-1291 
J2-J29PCRSCCI 12-1 > 

IF! ICON! 12) . EO.O)  00  TO  22 
00  TO  40 
C 

C  00  EXTRAPOLATION  FROM  LEFT  OF  f 

30  11-1 
Jl-JSTART 

31  1 1- l-l 
ji-  a-PCRSCCiin 
IF  I  ICONUD.rO.O) 

I2-II 
J2-J1 

32  xr-ia-i 
J2-J2-PCRSCC! I2> 

IF  ! ICON! !2> .EO.O) 

00  TO  40 

C 

ERB 

SUSP OUT INC  SPLINCIN.X* Y.D.C.D) 

C  REF  I  HAL COM  AMO  ROLLER 

DIMENSION  XIN)*T4N)*DIN) .ClN) «  DIN) 

C 

C  THE  COEFFICIENTS  BI I  )  »CI  I  )  »RND  DID*  I-1*2*...*N  ARC  CONFUTED 
C  FOR  A  CUBIC  INTERPOL AT INO  SPLINE 

C 

c  SIX)-YII>4B!I>4IX-XII > )9C< I >B< X-XI D > Bt29D< 1 >t!X-KI 1 1 >••] 

C 

C  FOR  XI 1 1 >LC . X! 19 | ) 

C 

C  INPUTI 

C  N -NUMBER  OF  BATA  POINTS 
C  X— BMC  It  BA 
C  Y -ORDINATES 

C 

C  OUTPUT I 

C  B*C*  B— ARRAYS  OT  SPLINE  COEFFICIENTS 
C 
C 

NNI-N-1 

IFIN.L T , 2)  STOP 
IFIN.Lt.3l  OO  TO  90 
C 

r  N!  IF  TRIRTAAMNAI  RtRTFH 


00  TO  34 


00  TO  32 


C6 


'■  R-DIAOUNAL  .(l.lWF  DIAGONAL  .C-FilGHT  HAND  S  I  DC 
C 

0(iiM<.‘i-mn 
»:».»>•*» i  2>  -»i  i » >/in  l » 

DU  10  l*:>NNI 

D> 1 ) -X  <  IM)->I|I 

*'  I  >  -2.0*!  IK  I  I  >  D<  I  »  » 

C<  1*1  >•«  Tt  1I1)-V»  I »  >/Di  I » 

ri|i.cu*ii-cil' 

10  CONTINUE 

i  FNO  CONDITIONS.  THIRD  OLKICA  fives  AT  Ki  II  AMP  MN* 

<  ARC  OBTAINED  FROM  DIVIDED  DIFFERENCES 

nu-ixi' 

B<N>--OtN-t  > 

C< I  I -o. 

C<N>-0. 

IF4N.E0.il  GO  10  IS 

C<|i>CU>/(IK4i*Xl2)i-COl/m}i-lM>l 
C • N I »C I N- I )/lR«N)-XIM- J))-C<N-2)'<XtN>l >-X(N-J> > 
Ci  I  l»C< I  >40 1 I  )  692/4X4 4 >-X<  I  I » 

C4N>--C4N)BD<N-1 >482/ « X<N)-XIN-J> I 
C 

r  HJAWARD  CLlnlNAtlOM 

C 


TIHIII  I  I  144  1  .1  FSfAl  4  |  44  •  .1  DSI  A  I  4  I  44  >  .  Kf  Tf  fcM<  I  4«  >  .  M  Cl  M  I  1  44  >  . 
IfMl  . . . .  144  •  • 

IRAS*  .  IOH1  .  Ill  Ml  .NANO.k.Uit!  X'UNti.ONf  UA,  At  )  MA. -■(*«  IF  •  1  *, «  »  I  . 
H*fvl,»<. ‘O'. If  IVI<r->i. IFkRUfc.IMnlN.il  I  HA  i  •  M  I  A  !  .  I<|  IA2.J4  |  S'., 
Tl  .‘.rAfcRIO.IFM.*I  .rsFfll  ,|.S|CI  I  .LS.<  B.LGI  .tfcl 
DATA  f  HASSI  •  LHARdf  ,  RU4  «  /  .  V  .  Ot  -  1 1  •  I  .  »t  -  I  V  .  I  .  1  Hi  .‘I 
DAf  A  I  INFS.  I)  HP)  .  UHf'GF  .)  HASSI  /  1 . 0  •  l  .  *i  ,10 . 0  .  IHJo.U/ 
IfHFR.0.*V4UHFf  .• 

I I HFR • I OOO . O 
KAf  10«  I  '  ■  I  INF  12/IfMPR 
RAf  Iflt.'l--  UH)l  1/lfHFR 
R  A  I  I U  4  .1 1  .  1 1  NP  *»  /  1 1  HF*N 

ra i Io«  4  *  *  -  re  W> /  f  I  Mf'ft 

RA  I  1(14  8  >  *  1 1  HF  1  I  UNM4 
RAT  I4)«5*  •  -  IEM»')VIER)R 
RA I  I O  >  A  >  “SONIC  Ti AFC  14FHASS I /rtHFR  • 

RAI  104  >)  -SUN  I  4  rCNF'l  1/  IlHFR  > 

RAT  1414  V  >  .  I  .ot  I  BCHANGf  •  SOR  I  1  «  B  .  0  4  I E  HPfcBC  MARGE  >/ 

I  4RFI4FHAGSI4FHASSI  I  I  I 
RATIO!  101*  UMPC2/IEnF>fc 
RATIO!  it  l  •  SOW  T  4  UNf-f  JBPNASS 1/ ff APR  I 
RAT  1 04  1 2*  •  SOR  I  4  tl  NF  l  2/  lEMPR  > 

RAT  104  1.11  -  Tl  NPS)  / UNPK 

RE  TURN 

END 

SUHROUTINE  GENOEL 


IS  DO  JO  1-2. H 

1*04 l-l I/R4 1-1 » 

•< I >-8< 1 I-T4D4 I-l » 
CcM-CI  II-TlCd-ll 
.'0  CONTINUE 

c 

r  BACA  SUBSTITUTION 

c 


C<N>-C<N)  B(N> 

DO  JO  IB-1.NH1 
I-N-IO 

C  <  I  I  *4  c  4  I  >  -D<  I  HC4  1*1  >  »/*<  |  » 

JO  CONTINUE 

C 

C  CONFUTE  POLYNOMIAL  COEFFICIENTS 

C 

BIM>-<VtM>>V<NHl  >  >/D<NNI  '  ♦  D I  NH 1  )  B  4  C  (  NH  1  >  *2.061;  4  N>  > 
DO  40  I-1.NH1 

f! I >-l VI 14 1 >-TI I »  »/0< I >-D< I >6<CU*l  >*2.06C4 I >  > 

0<I>-<C<I*t>-CU  *  »/D<  I  > 

C<  I  )  -3 . 0*C  < I > 

40  CONTINUE 


C  4  N  > ■ J . 04C <  N I 
D<N»-P!N-I > 
RETURN 


SO  •< I la«V(2l-V4 | > )/<X<2>-X< | > > 

Cl  11-0. 

DIM-0. 

BI2I-BI I l 
CI2J-0. 

0<2*-0. 

RETURN 

END 

FUNCTION  SPIDER  < K.U, X , Y • B . C . D > 

DIMENSION  XIN).YIN>»B4N>.CIRI.D<N) 

C 

C  IMIS  SUBROUTINE  EVACUATE  THE  CUBIC  SPLINE  FUNCTION  AT  POINT  U. USING 
C  MOANER  S  RULE 

C  IF  U  IS  NOT  IN  THE  PROPER  INTERVAL*  A  BINARY  SEARCH  IS  PERFORMED. 

10  1-1 
J-NH 

20  K»<I*J>/2 

IFIU.LT.XIK))  J»K 
(FIU.0E.XIA)>  I -A 
IF I J.QT . Ill >  GO  10  20 

C 

C  EVALUATE  SPLINE 

C 

JO  DX-U-X<I> 

SPIDER  -YU  H0XB<B4DIDXBC<MIDXB<  Dll)  >> 

RETURN 

END 

SUBROUTINE  OCNRAT 


C 

c 


PACKAGE  B  2 


GENERATE  DIMENSIONLESS  PARAMETERS 
GENERATE  VELOCITY  LEVELS 
GENERATE  ORID 

GENERATE  POTENTIAL  DERIVATIVES 


C 

CBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB 

c 

c  PURPOSE 

c  TO  GENERATE  SCALINO  FACTORS  WITH  RESPECT  TO  TEMP  REF  AMD  DEM! I. 
C  EXTERNALS 
C  NONE 

cbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbs- 


IKPLtCIT  REALBD  (A-H.O-Zl 

INTEGER  PERSEC *SEC IND.PERPAN.PAMINO 

COMMON  PSAUCI144.  10 1 .CSAVE! 1 44. 10) .PSCC TR! 144) .CBECTAf 144>. 
1DELEE<20>.DCLMAXI 144). EMAXI 144). CTAI 20) *DSCAf I l 144). 

2BSCAT21 1 44  > i BSCAT Jl 144 > .PHOI 20. 40 > * 

lAMOl 40 ) . CPMOMX I  1 44 ) • SUMAMG . AMGO*  BOUMDl  < 20.40' .BOUND 1 1  20. 40 ) . 
2AN0LI20.40* .VI 1120*40) • I  CHECK  I  20.40) .RATIO! 13) . I ROOT  1 144) » 
1IFAUL  II  I4).X0CAL(  144).  ICOMI  144)  , 

IVII20).EVIS) .NLEV.MT IHCS . ILEV. IININI20). I IMAXI 20) .VIMUMI20) . 
2AII  44  ).  B<  1 44  >. CU44  >.  DDU44 ).  DIM  144).  IMII44*. DM1144). 

JEM! 144 ) . TWOCOS  < 700). 

1 IFLO.NPOINT.M. IOEOM. ISYN. IPOI5.MSCCT.MPfROD.MPf ROD. IDINf . 
JOANNA. DVDXI 70.4D),DVPYI70.4D».TI 144 ) .DEL  I AX . ML TAY . 

3  VSI 44. 4i >»KS(64>, XSSI  70). 

I VAADLC l4>.T.DfLT .8BOUNO.NDIM.POT  *H. Jl .RPI .RP1 2 .RPIMAF • SOTPI . 
?SA Y . If MPf 1 . IE NPE 2 . OEMS  1 . DCNE2 . DEN 1 1 . DEN! 2 . TEMP 1 1 . TEMP 1 2 . 

JTf  NPP.t  UM.1.LUN4  ,LUN5»LUN6»tUN7 . LUM8.LUM9.LUMI0, 

I  I  DTI  11441, JDTL 1144) .PERSEC 1 144). SEC INDI 144). I PANEL  < 144) . 
7PFRPAM< |44,4), PAMlMDl 144). 

innMM44<.mrr<  m*  **»  .f  srn  i  »44*.i  Rurum  t«4«. 


INPllriT  klAIBB  iA-M.UZ> 

I  HUGER  PC  kS*  C  .StCIND.lFRr  AN  .  FAN  I  NO 

COMMON  PSAVE4  I  4  4. 10  ).L  SAVE  4  14*.  I  O',  f  Sit  TR  <  1  44  »  »CSEC  I  Ff  I  I  44  1. 

I  DEL EE  <  20 > .DEL MAX  4  I  44  > .EHAI I  144 ' .1 IA>  20) .NSC A  I I < 1 44  * . 

2BSCAT2I 144  > . HSCA1 II 1 44 1 , FMQ4 20. 40 » , 

1 AMG4  40) .CPHOMXi 144  > , SUNAWG.AMGO. BOUNDL <  20 . 40 ) . BOUND I <  20 . 40 1 . 
2ANGL  4  20, 40 ) . V  I  I  4  20, 40  » • ICMf  CK  <  20. 40  >,KAII0<I3>. IRU0T4 144). 

J IF AULT  4 14), JLOCAl  <1441. I  COM4  1441 . 

1 VI <  20 ),EVIB>  >N(  F V .NT IMES • 1 1 E V . I  I N IN <  20 ) . I  I MAX  I  20 ) . VINUN4 20 ) . 

2A< I  44  * , B  < 144  > ,C  4 144), BB( 144). BM 4 144* ,TW< 144) .DM< 144). 

JEUI |44>, TWOCOS 4  700) , 

I  IF  i  O.MPOIMT 1GE0M. IS YM . 1P01S .NSEC I .NPEROD.MPf  ROD. I DIMY . 
2GAMMA.PVDXC  70. 4H  >  •  I'VPY  4  70,40)  .Y(  1  44  I  .  DEL  TAX  .DEL  I  AT  . 

JYSI 4A« 48 1 . XS4  A*  > . XSS4  70) . 

IVARBLE 14). T, DEL  I . SBOUNO.NDIM.POT ,M. Jl ,RP | ,Rp | J ,RP |MAF .SOIPI • 
2SAV.TEMPEl.UHIf  2.  DENE  I.  DENE  2.  DENI  1 .  DENI  2.  IEmPI  1 ,  TEMPI  2* 

J IE  APR. LUNJ.LUN4.LUN3. LUMA, LUN/.LUN0.LUM9.L UNI 0* 

1 (DILI  144) , JDTL  4  1 44 1 . PERSEC I  1 44 ) .SEC  1 ND t 144) . IPANlL I  1 44 ) . 
2PERPANI 144.4) .PANINDI 144 1. 

1CI0N4 144) . CEL EC  4  144) ,CSEC ( I44).CSEC1 4 1441 .CPMOTOC 144) . 

2CPH0TI 1 1 44  I .C DSC AT  1)44) .CBSCA1 1  144), SCCPRM4 144) «  GCCPRt 4144). 
JPHIII44) .C0UN4 144). 

IKASE . JOHL .DPH I .NANO. RAP, PBOUND.OMEOA.ALPHA.SO.JP. IS. CCS. 
2CXPVI2I20) ,CF TVI (20). If RROR. TETHIN.TETNAX.be TA1 .BE TA2.JLESS. 

JL 2. CARR I V.CPM.X I .CSECEL. CSECEl.CS.CB.CS I ,CBJ 
C  THIS  SUBROUTINE  OEMCRAICS  VELOCITY  LEVELS  USING  THE  NONOC MERGE  TIC 
C  VELOCITY  LEVELS  AS  A  BASE 
C  N8AHP  IS  NUMBER  Of  NONOC MERGE  TIC  LEVELS  USED 
C  NLEV-INSAMPII IBNTIHCS  -1  ARC  NUMBER  OF  LEVELS  USED 
C  MTlNES  IS  AN  INTEOER  . GE .  1 
C  VI  IS  VELOCITY 

CSB%BSSBBBBBBBBtBBBSStBBSSSSBBSBSStBBBBtBBBBSBBBBSBSSSBBBSSSBSS00S0B 

WSAMP-0 

EVIM-I.21SI2DC-01 
CVI 2>-J.002449E-Ol 
FV<3)a7.431497C-01 
rv<4*-l. 224691 
CV<3>-1 .731390 
EV<6)-2. J4JJ83 
EVI 7) -J. 016609 
FVr07-J.0JI.l7l 
NLEV-NSANPBNT IMES 
VZCRO-O. 

00  IOO  I-l.NSAMP 
DO  200  J-I .NT IMES 
JHNTIHC88M-MIJ 

VII  JM-VIEROIFLOATI  J)B<CV<  I > - VZERO > /FLOAT  I  NT  I HE 8 > 

200  CONTINUE 

VZCRO-CVI I ) 

IOO  CONTINUE 
C 

C  STORE  FOLLOW t MO  VALUES  FOR  8/P  FIT 
DO  300  K-I.HLCV 
EXPVI2<K)-CXP<-VI(K)BS2> 

EFTVI <K>«CFT I VI IK) 1 
300  CONTINUE 
C 

c 

RETURN 

END 

SUBROUTINE  OCNORDI N. PHI . N . RAD. BBOUMD .PBOUNO . DCLTAX , DEL TAY , Y , M. 

1  ANOO. IPOtS.PSCCTR.CSCCTR) 

cbbbbbbbsbbbbbbbbbsbbbbbbsbbbbbbbbbsbssbbbbbbsbbbsbsbsbbsbsbssbbbb 

c  purpose 

C  TO  GENERATE  ORID  POINTS  ARRAYS  AMD  COEFFICIENTS  OF  THE 

C  POISSON  EQUATION.  TO  CALL  THE  GUESS  FIELD. 

C 

C  DESCRIPTION  OF  THE  VARIABLES 

C  A.B.C  ARC  COEFFICIENTS  IN  THE  POISSON  EQUATION. 

C  ANOO  IS  ANGLE  BETWEEN  SUN  DIRECTION  AND  ORIGIN  OF  ANGLES. 

C  DEL  TAX  ID  ORID  BPACINO  IN  X  <R»  DIRECTION. 

C  DEL TAY  IS  ORID  SPACING  IN  T  I  ANGLE >  DIRECTION 

C  MCOMS  IS  USED  IN  THE  CONFUTATION  OF  N 

C  M  INITIAL  STEP  SIZE  FOR  ORDIT  INTEGRATION 

C  IPOIS  IS  A  I  LAO 

C  IPOIS  *0  THE  SUESS  FI ELS  IS  CONFUTES 

C  IPOI8-I  CONFUTATION  OF  THE  POISSON  EO 

C  IPOIS *2  READ  IN  POTENTIAL 

CBStBBSBiSSBSSBSBBBBBSBBSSSSBSSSSSBSSBBBSBSSaSSBtSSSSBSSSSSSSSSBSSBBt 

c 

c 

IMPLICIT  REALBD  IA-H.O-Z) 

INTEGER  PERSEC. SEC INS, PE RP AN. PANINS 

COMMON  PSAVC 1144. 10) .CSAlNtl 144*10) .PRECTRI 144 ) .CSCCtRl |44 1 . 

I  DEL  EC  I  20). DEI  MAX  1 1 46)  .CMAXIl  44  )  .CTAUO)  .  DSCAT1 1 144). 

2BSCAT2I 144) .BBCAT31 144 ) .FMOI 20.40) • 

I  AMO I  40 ) . CPNOMX 1 1 4 4 > . SUNANO . ANOO . DOUNDL I  20 * 40 ) . SOUND I « 20 . 40 ) , 
JAMOL 1 20. 40*. VI 1 1 20. 40) > f CHECK! 20. 40). RATIO! 13). IROOT I  144). 
JIFAUL 1(14). JLOCAL 1 144). (CONI  1 44). 

1VI <  ?0).EV(0).HI  EV.NTIMCS. ILEV.ttMIN4  20),TIMAK<20) .VINUMIJO). 

?A( I  44) *D< 144) ,C< I44I.DD! 144 ) .DM4 144 )• TNI I44).BMI >44) . 

3EM4 144) >  TWOCOS! 700), 

1 1 F L G . NPOl N I . H . I OCON . I S VR . I POI S .NSEC T . NPCROO • NPCROO . 1 D I M V . 

JOANNA . DVDX I  70,40), BUSY ( 70.40). V! 1 44 >, BEL  TAX • DEL  TAT • 

SYS I  46. 4S  >  «  XSI 44 ) • XSSI  70), 

t  VAABEC  (4).  T.ML  I  .BBOUND.NOIN.POT.N.  Jl  .DPI  .RPI2, RPIMAF  .SOfPJ  . 
2SAT . TFNPE I . TENPt 2 * BENE t • BENE 2 . DEN 1 1 . DENI 2» TENP 1 1 , ICNP 1 2 > 
3TfMPP,lUM3.LI)N4.LUN3.LUFI4.LUN7.LUHS»LUN9.tUNtO. 

1IDHII44).  JBU<  I  44), PERSEC!  144  I  .SEC  INDI  1 44  )  .  IPANfLI  144). 

JPf SPAN! 144.4). PANINDII44). 

1C  ION  I  144I.CEKCI  1 44)  .CS8C!  1 44  >  .CSECI 1 1 44  )  .CPMOTOl  1441. 

2CPH0T 11144) .CBSCAT 1144) , CB8CA1 ! 1 44 ) .SECPRN! 144) .DCCPRI 1144), 
JPMI 1144) ,COUN< 144). 

IKASC  ..fOMt  .PPHI. MAMS. RAO. PBOUFfO.ONfOA. ALPHA. SO.  JP.IS.CCS. 

•f  XPVI-.I  •'(>).»»  rv» »  >rt).  irfcROR.ir  tnin.if tnab.rf tai .hbt a*,  b  FAR. 


C7 


'l  .'•!  AKK|V.r»'M.X!  ,(  .1  S.t  tl.l'Sl  .|BI 

t'AIA  Hl'llN* '  10.0/ 


N-HFOINT 

IF  «  IH  G.EI4.  I  'GO  TO  100 

*■  lOMPim  l  INF  A*  SPACI  -CHARGE 

L 

RLNPA-0.0 

PEB¥F-ft9*SQRr<  IlnFRII  .  6E  -  19/ (  OFN  I  1  «l  .  JHE U  > 

IF  <  II  AIM.  T<  14)  .fcQ.  1  ) 

I  PI  H0A-  <RAP/ DC BYE >••?•<  DENE  X  / TENPE  1  ♦  DENE  2/  IF  Npf  J.DENIl/lf  HP  J  1  ♦ 
i  Of Nr.vrENPijxrcNPR/iiENii 
DEL TAX-SBOUND/FLQA  r  <Ht 1 ) 

DEI TAY-RPI 2/FLOAT 1N> 

SYX-( DEL TAV/OEI  TAX)*»2 

C  GENERATE  GRID  POINTS.  COEFFICIENTS  AND  RMS  UF  FUUATiUN  (l.NF.l) 

100  IW1.R-1 

DO  200  J-l.N 

VI J) -FLOAT!  J-l >• DEL  TAT  TANGO 

IFIYI J».LT.O.O.OR.T(J).GT.RPir»  STOP 

»S  <  N . J I « -S  YX  *PHOUND 

DO  210  1-2. HN1 

TS(I.J>>0. 

210  CONTINUE 
700  CONTINUE 

L  PREPAftf  DATA  FOR  POISSON  SOLVER 
UNOA-RLMPA*  DELTA  V**2 
DO  220  !•»•» 

»S<  1 1 "FLOAT < 1 ) t DEL T AX 
A<1>-SVX 

D< I ) -~2.«SYX-TLHDA*EXP<  2. *XS( 1 1 1 
ClD-SVX 
220  CONTINUE 
A  <  1  ) -0 • 

C<N>-0. 

C 

C 

250  IF(IPOIS-l)  300.301 .310 

C 

C  CALL  GUESS  FIELD 

C 

300  CALL  GUESS 
IPOIS-lPOISEl 

301  DO  230  J-l.N 

YS! I .J)--SYX«PHI<J) 

230  CONTINUE 
C 

C  CALL  POISSON  SOLVER 
CALL  POI 

IF< TERROR. NC.0>  WRI TEILUNV. 1 21 >  I ERROR 

121  FORMAT  < 4  ERROR  IN  POISSON  FIELD. IEEROR-*. 13////// 1 
C 

C  COMPUTE  APPROXIMATE  SIEPSIZE  FOR  ORBIT  INTEGRATION 
M-DEL  T  AX/HCONS 
IFLO-l 
RETURN 

C 

C 

c 

C  READ  IN  POTENTIAL  AI  THE  SURFACE 

C 

310  UR I TE  <  LUN9*  2345  > 

2345  FORMAT  I 7////20X.*TMC  INITIAL  POTENTIAL  AT  THE  SURFACE  IS*. 

I  /20X* . - . - . *//» 

C 

READ! L UNI 0. 1221  ( PHI < J) . J-l ,N ) 

122  F ORMAT  I  6E  1 2  •  5  > 

UR! TC  (LUN9.I220)  < PMI < J > , J-l ,N> 

1220  FORMAT  <  A< 1 X  > l PE  12.5) > 

IPOIS-I 
GO  TO  301 
C 

END 

SUBROUTINE  DIVPOT 

C 

ciMimuiiimmiiiMiuiiiiutMiiMimiumimtimmiMiiii 

c 

C  PURPOSE 

C  TO  COMPUTE  DERIVATIVES  OF  POTENTIAL  IN  X  AND  V  DIRECTIONS  AND 
C  TO  RESET  POTENTIAL  ARRAT. 

C  DESCRIPTION  OP  THE  VAR  I ARLES 

C  DVDX  IS  N.D.  FINITE  DIFFERENCE  DERIVATIVE  OF  POTENTIAL  IN  X  DIF 

C  DVDT  IS  N.D.  FINITE  DIFFERENCE  DERIVATIVE  OF  POTENTIAL  IN  T  DIR 

C  N  It  NUHRER  OF  INTERVALS  IN  V  DIRECTION 

C  MP2  IS  NUMBER  OF  GRID  POINTS  IN  X  DIRECTION 

C  PHI  IS  POTENTIAL  AT  THE  SUFACE  OF  SPACECRAFT 

C  P SOUND  IS  OUTER  BOUNDARY  FOR  POTENTIAL 

C  S BOUND  IS  OUTER  LIMIT  FOR  RADIAL  DISTANCE 

C  IS  IS  RADIAL  DISTANCE  IN  I  DIRECTION  INCLUDING  BOUNDARY  POINTS 

C  XSS  IS  ARRAY  USED  IN  FUNCTION  RUNQC 

C  VS  IS  POTENTIAL  MATRIX  CHANGED  TO  INCLUDE  ROUNDARY  POINVt 

C 

C  EXTERNAL*  NONE 

CB**i****BB*DBB**BD*DDB**B*D4BBDBB*Bi*4BDD*4B4*DB44BD4DBDDB4*DBBDB*i 
INTEGER  PCRSEC.BEC IND.PERPAN.PANINB 
IMPLICIT  REALSO  <A-H.O-Z> 

COMMON  PSAVE 1144.10) .CSAVE 1 1 44. JO > .PSECTRI 1 44> .CSCCTRI 144) » 

10ELCC I 20 ) » DCLMAXI 144 > .EMAX < 144 \ .IT At  20 > • BSC ATI  1 1 44 > • 

2SSCAT2C I 44> .DBCAT3I 144) »PHO( 20.40). 

IAMGI40) .CPHOHXI 144) .8UNAN0. ANOO. BOUNDL  <  20.40) .BOUND! <20. 40). 

2AN0L < 20. 40) .VI 1 < 20.40) . (CHECK! 20. 40) .RAT !0< I J > . IROOT < 144 > . 

J (FAULT ( 14 ).JLOCAL< 144 )*ICON< 144). 

I VI <  20) »CV<G  > .NLEV.NT 1MES. ILEV  * T IHIN< 20) • T IHAX<  20) • VINUH<  20  > » 

2AI I44).B<I44>.C< 144>»BD< |44>.Btf< 144) . TM<|44)»DU< 144). 

3€U( 144) » TH0C0S4  TOO) » 

I IFLO.NPOINT  »M. IOCOM. I STM. IPOI8.NBECT .NPCROD.MPf ROB. I DINT. 

2 GAMMA. DVDX! 70.40 > . DVDY I  70. 4S ) * Y < 1 44 ) , DEL  TAX . DEL  TAT . 

3Y9< 44. 4S > . XS<  AA ) . XSSI  70). 

1 VARBLE  <  4 ) . T . PEL  T tSBOUND.NDIH.POT .H. J1 .RP( .RPI2.RPIHAF .SO TP I » 

2SAT . TCMPC 1 . TrMPC 2 . DENE  1 • DENE 2. DEM 11 . OENI 2 *  TEMP  1 1 . TEMP 1 2. 

J TEMPO. LUMJ » LUM4 * LUNS.LUM4 • LUM7 .LUMt. LUMP. LUMIO* 

1 1DTL I ! 44  >  »  JPTL  < 1 44  I .PCRSECI 144 ». SEC 1ND< 1 44 ). (PANEL < 144 ) . 

2PCRPANI 144.4) .PANINDI 144). 

1CI0N4144).CELCC< 144) .CSCCt 144>*CSCC1< 144) .CPHOTO< 144). 

2CPM0TII 144>*CBSCAT< 144).CDSCA1< 144).SECPRN< 144).SCCPRi< 144). 

JPHI < 144) .COUNI  144). 

1RABC.  JOFIL.  DPHI.  NANO.  RAD.  PDOUND.  ONEGA.  ALPHA.  SO.  JP.  If. ECS. 

2EXPV1 2 1  20 )> EF TV I < 20). (ERROR. IE TH IH.TCTNAX.DC TAI .DC TA2. JLCSS. 
3L2.CARRIV.CPH. X  t . CSf CEL >  C8CCC t.Cl.Ct.CSl .CBI 

r. 

NPJ-NtJ 
NP7-NT2 
HP I -NT  I 
PENPOINT 

C 

XS I NP2) •ABOUND 
DO  10  1*2. MPI 
TPA-MP2-T 


IF  (..  |l  A.l 

■  Sv  ii  H  i  •»«;<  if  a  . 

IO  l  ONI  [NUt 
X5< 1 > 

X5S<  I  )  ‘ 

XiM  »>-S0T0.5*Dll  TAX 
Ml  -V  1-1.MT2 

XSSI  I  >*W-  !  1  MHt  I  TAX 
20  rUNIlNUi 

XSS i MF J  > - S BOUND 


C 


C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

Cl 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DO  40  J-l.N 
Y5IHP2. J 1 -P HOUND 
DO  10  1-2. MPl 
IPA-NP2-1 
IPB-lF'Af  I 

VSI  IPS.  D-YSl  IPA.  J) 

30  CONTINUE 

YSI 1. J)-PHI4J» 

40  CONTINUE 

COMPUTATION  OF  I  HE  DERIVATIVES  IN  RADIAL  DISTANCES 
BY  FINITE  DIFFERENCES 
DO  50  J-l.N 

DVOX ( 1 . J)-< - YS<  3. J>F4.0*rSi 2. J»-J.O*YS« 1. J» I/I 2.0BPFLIAX i 
DV0XINP3.  J)-(J.0»rS(NP2.  J»-4.0*YS<MF  1  .  J)  *  YS«H.  J  »  >/ i  .’.OBI'/L  I  A*  • 
50  CONTINUE 

DO  60  J-l.N 
DO  60  1-2. HP? 

DVDX I  I . J>-< YSI I. J)-YS< |-l . J) > /DLL I AX 
60  CONTINUE 


CALCULATION  OF  DVDY« IN  J  DIRECTION  OR  ANGLES) 
DO  10  I-I.NP2 
DO  70  J-l  .N 
JP1-J41 

IF  IJ.EO.H)  JPI-1 

DVDY  < 1 • J  > • ( YSI I. JF1 >-VSi I. J) ) /DEL  I AY 
70  CONTINUE 
RETURN 
END 

SUBROUTINE  ION 


PACKAGE  #  3 


CURRENT  COLLECTION  OF  PRIMARY  PARTICLES. COMPUTE  EMERGINfl  SEC  CURRENTS. 


PURPOSE 

TO  COMPUTE  ION  CURRENT  AT  A  GIVEN  GRID  POINT.  THE  DI8TRIDUT ION  FUNCI10 
IS  APPROXIMATED  BY  A  DISCRETE  NUMBER  OF  LEVELS.  FOR  EACH  OF  THESE 
LEVELS.  THE  PHASE  SPACE  BOUNDARIES  ARC  DETERMINED  BY  FOLLOWING 
ION  TRAJECTORIES  BACKWARDS. 

I -SUN  FROM  J-l  TO  J-JMAX  OF  INTEGRAL  FROM  U< I )  TO  UII41)  OF 
DUSF I U  >  *U*UB I COS  <  AMG 1 ( U ) > -COSI AN02IU) ) 


DESCRIPTION  OF  THE  VARIABLES 

DETAI-VIB42  IS  NON DIMENSIONAL  ENERGY  OF  IONS  AT  INFINITY 
DCTA2-SCTAt-PHIIJ>  IS  ION  KINETIC  ENERGY  AT  SURFACE . 

CION  18  ION  CURRENT 

DELP  COEFFICIENT  FOR  SECONDARY  EMISSION  DUE  TO  PROTONS 

CXMP  COEFFICIENT  FOR  SECONDARY  EMISSION  DUE  TO  PROTONS 

N  IS  NUMBER  OF  GRID  POINT  AT  SURFACE 

MLCV  IS  TOTAL  NUMBER  OF  NONOENCROCTIC  LEVELS 

ILCV  SELECTS  THE  NUMBER  OF  NONOENCROCTIC  LEVELS  USED  HLCV-2 

ITER  NUMBER  OF  ITERATIONS 

JOHL  IS  FLAG 

IF  JOHL *0. ORt ITS  ARC  FQLLOHCD  NUMERICALLY . 

IF  JOML-l.ONL  CONDITIONS  ARC  ASSUMED. 

SECPRN  CURRENT  DUE  TO  SECONDARY  ELECTRONS  INDUCED  DY  PROTONS 
8ECPR1  CURRENT  DUE  TO  SECONDARY  ELECTRONS  INDUCED  DY  PROTONS 
LEAVING  THE  SURFACE. 

TETHIN  MAX  I HUN  ACCECPTANCC  ANGLE 
TETMIN  MINIMUM  ACCEPTANCE  ANOLC 

VACC  IS  ACCURACY  DESIRED  ON  VCLOCTV  SPACE  MINIMUM 
VZERO  IS  MINIMUM  KINETIC  VELOCITY  AT  SPACECRAFT  SURFACE. 


EXTERNALS 


COEFT 

EXP 

OCNORD 

ORSIT 


INTEGER  PCRSCC.SCCINS.PCRPAM.PANINO 
IMPLICIT  RCALBD  IA-M.0-2) 

COMMON  PSAVE 1 144.10) .CSAVE 1 144.10) .PGCCTRl 144 1 .CSCCTRI 144). 

1 DCLEC  <  20) . DEL MAX  1144) .EMAX I  1441 .C TAI 20) .DSCAT 1 1 1 44 ) . 

2D8CAT21 144> . DSCATK (44) .PHO I  20.401 . 

1 ANO ( 40  > .CPHOMX 1144). SUNANO. ANGO. BOUNDL 120.401. BOUND I <20.40). 
» ANOL 120. 40). VIII 20.40 ) . (CHECK 1 20.40  > .RAT  10 1 1 J) . IROOT 1144). 

3 IF AULT 114). JLOCAL I  144 ). ICON! 144 ) . 

I VII 20 >.EV<B>. NLEV.NT !NCB» ILEV. TIHINI 201 . T IRAKI  20) . VINUMC 20 ) . 
2AI 1 44  > . Dt 144 I.CII44). OB' 144 ) .DM I I44I.THI 144) .DNI 1 44  >  » 

JEW!  144 ) • I WOC OB  I  700) . 

1IFLO.NPOINT.N.IOCOM.ISTH. IP01 t.NGC CT.NPCROD.HPCROD. ID1MT . 
20AMHA. DVDX < 70* 4B I . DVDY I  70 . 4B ) . Y 1 1 44 ) . BSL TAX . DEL TAV . 

J YSI 44.40 ) . XSIAA ) .XSS I  70), 

IVARSLI  I  4 ) . T .DEL  T .8D0UNS.MDIN.P0f  »M» Jl , RPI »RPI 2.RPIMAF .SGIPI . 
?SA Y . TCMPf 1 . TENPC 7. BENE  I . BENE 2 . BENI  I . Bt M 1 2 . f CMP 1 1 . ICMP 1 2. 

JTFMPR.LUN3.LUN4.LUN5 . LUN4.LUN7.LUN0.LUM0.LUMI0. 

I  I  DTL  I  I  44  <  •  JDTl  <  1 44  ) .PCRBCCI 144 ) *BCC I MB 1 1441. I PANEL • 1441. 
2PERPANI 144.41 .PANINDI I  441. 

I C I  ONI  I  44  >  *CI LEC 1144) .CSCC 1144) .CSf Cl <1441 .CPNOTOI 144). 
2CPHOTI I  1 44 ) .CDSCAf 1 1 44 > .CDOCA 1 1 1 44  I . BE CPRM! 1 44 ) . BECPR I II 44 1 . 
3PHKt44).CGUN(  144). 

IKASE.  MINI  .DPHI  .NANO.RAR.PSOUND.ONCOA.ALPMA.tO.jp.  It. CCB. 

21 IFVI 2( 20 ). EF TV! 120). 1ERRGR. IE TNtN. TCTRAI.BCTAI.BC TA2.JLCBS. 
31 2.CARRI V.CPH.X! .CSCCf ( .CSCCF1 .CS.CB.CSI .CBI 
DATA  VACC/ I . OE -  3/ 


C9 


tB'tl'AI  *  lv<u> 
i  KM  A  |  t  1 1  --4  HI 
l*  >  U  .1.1  >  ui)  r»)  .’ii 

l  f  I  *kAI  IU»#>  1  *t  xf  •  >  1  'KAT  IUi  I  ) 

If  tkAMlIt  |  |  >  .Mt  .O.  V*  It  .'-kAl  lilt  t  1  (  »t  «f  »  «  |  KA  I  lut  to  >  > 
l  H  It  t  .1  ■  •  > I  I  I  Ml  I  Ht.'mNt  2»-  [UNI  | 
i*ll  »<l  'l*. 

It  IF  .  fcAl  tU-  '  *  .  Nf  .  A. 01  4‘f  1  -»»A  I  l(1i  6  )  (  t  G4SA  r  I  i  SORT  i  a J 'RA I lOt 2 t > t 

i  an  i  r  i  *.uk  h-ii  mi  lo<  .*»>»>> 

IF  ■  RAJ  ill.  |  t  •  .  Nt  ,  0.0  *  Ct  2*kAI  till  I  1  )  •>  .'.VISATllXlh  I  <  »  |  KA  I  till  I  U  I  » 

1  »  4  IK#  T<  MIh  4  .  Xj  KATlU‘l4l,**'l 

til  f  I'  i  II  ><4*  ISlNNt  IfLt.’tl'tNk  J*  (if  Nil 
oO  in  ’1% 
l  4  i  ONT  l Nil# 


F’RtPARf  TAIA  MIR  BIHAXMfclL  IA'  lUMK 
00  710 

IF ( JJ.Ni . I .  GO  ru  711 
(.AHHA-RAI  I  0  l  > 

TEHPE-TEMPE l 

KATE  -RAT lniA> 

PEN-DENE 1/PENtl 

GO  TO  ■’12 

’ll  GAHMA-fcATIUt |V> 

TEMPE-1EHPE2 
RAli  *RAT  till  I  l  > 

DfN.pf  NC-VPENl  l 
’  I  2  CONTINUE 

tF  <  OEM . EO .0.01  GO  TO  710 
I  IMPUTE  FNERGr  LEVfcLS  AND  ACCEPTANCE  ANGLES 
NTOuR  » 1 
NUM*  t 

:  COMPUTE  HlHlHAL  KINETIC  VELOCITY 
V/ERO-O.O 
IF  4PMI <  j>  .  NE  .0.0* 

I VZE  RO - AHA  X  I  4 O . . -EM I <  J > / GAHHA»  SOR l(A»S(FMI(JI / G AHHA ) 
1  ABS.PHI4  J>/GAMHA>> 


[<0  70S  1*1  .NLEG.  ILEV 
Of  T  A  I *v l <  I I  B«2 
P£TA?-BETA»-PM!4 JI/GAMMA 
IFl BETA2.LE .0. ICO  TO  70S 

IF  FNFRGY  AT  SURFACE  4  BE  TAJ  1  IS  LESS  THAN  ZERO'  GO  ON  10  NEXT  ENIRGT 
rf TAIN. 0.0 
TETMAX-RPI 

rOHEUTE  ACCEPTANCE  ANGLES 

IF  ORB ITS  CORRESPONDING  TO  LOW  ENERGY  LEVELS  ARE  OAL >  00  NOT  COMPUTE 
ORBITS  NUMERICALLY  FOR  HIGHER  ENERGY  LEVELS. 

IF  (NTOUR.EO.il 
I  CALL  GENOKB 
IF  <  JLESS  .  E  0.  J  >G0  TO  70S 
NUN -NUN FI 

IF  (TfTMIN.LE.O.O.AND.TETMAX.GE.RPll  NTOUR-O 

TIMIN(N0M>.T£TMIN 

TIHAX4NUHI-TETMAX 

V I NUM  <  NUN  > -SOR  T l PE  T  A2  > 

COMPUTE  COEFFICIENTS  FOR  SECONIiaRt  ELECTRONS 

IF  < I F  AUL  T(3).E0. I  *  DEL EE  «  NUN ) ■ 7 . 4 BPCL MAX  <  J ) BPE T  A2B  TfHPE  BE XP  < 

I  -  2 • BSQR  T  <  BE  TA2B  TfHPE /EMAX ( J) I » /f  MAX ( J  > 

IF  (  IF  AUL  T  <  4  I  .  EO .  0  »GO  TO  70S 
:  COMPUTE  COEFFICIENTS  FOR  BACkSCAT  TER  ELECTRONS 
NOTE  SFOR  BSCATJ.THE  CORRESPONDING  ENEROY  IS  IN  kV 
BSC-BSCAT34 JXBETA2BGAMHA 
ETAINUMI-BSCAT14 J) 

IF  (BSC. LE. 100. I 

1  CYA( NUM I -DSCAT | <  J  I -BSCAT24  J  > BE XP ( -BSC l 
70S  CONTINUE 

|F(NUN.EQ. 1 »G0  TO  70V 

COMPUTE  ACCEPTANCE  ANGLES  FOR  LOMESTE  NERGY  LEVEL 

TZERO-<TlMIN<7>*TIHAX4  2D/2. 

VHIM-VINUM42) 

017  VMED-4  VMIN+VZERO  ) 72 • 

VARBL  F ( I >-S0 

GARBLE ( 2I-VHEPBSIN4 TZERO) 

VARPLE ( J). Y ( J  > 

GARBLE ( 4 I--VMCDBCOS  < YZCRO) 

T-0. 

DEL  T-H 

BE  TA I - VNCDBVNC  D+PM 1 1 J I / 0 AMNA 
CALL  ORBIT 

IF ( GARBLE ( 1 ) .GE .  4S80UND-DCLTAXDVMIN-VMCD 

IF ( GARBLE ( 1  I .LT.SOlVZERO-VMCD 

IF ( ABS ( VNIN-VZCRO I • OT . VACC  >00  TO  817 

G  JNUM<  1  ) -GMIN 

BCTA2.VNINBB2 

BETA! -BE TA2#PMI 4 J ) /GANNA 

TETHIN»T!NIN(2> 

TETHAX- T IMAM ( 2  > 

TININI 1 ) *  T  ZERO 
UMAX  t  l-TZERO 
CALL  GCNORB 

IF ( JLESS .EO. 2  >  GO  TO  B01 
T I N I N ( 1 I-TETMIN 
TINAX4 I l-TETMAX 
BOt  CONTINUE 

1FI1FAULT4  3) .ED.I  IDCLEE4 I I  - 7 . 4BDCL MAX  4 JIBBC TA2B TEMPI  BE KP ( -  2. 

I BSORT ( BC  TA2B  TENPE/ENAI (Jill 7CMAX4  J I 
IFl IFAULT<4> .CO.OIGO  TO  110 
BSC-BSCAT34 JiBBf TA2B0AMMA 
ETAT 1 >  * BSC AT  1 <  J> 

IF ( BSC. LC. 100.01 

1  CTAI I > “ BSC AT  1 1 J I -BSCAT  2( J>  BEXP4 -BSC) 

.110  COMTINUF 

:  VZERO*  T ZERO  ARE  VELOCJ TY. ANGLE  CO-ORDINATE  MINtMA 
NUMMI -NUM- I 

WRITE  (LUN4.6I3I  J. JJ. ( T IMIN( I  I . | - 1 .NUN I 
A 1 S  FORMAT  ( |x.bj*S. 15*«  JJ-B . IS. (ACCEPTANCE  ANGLES  FOR  ELECTRONSS 
I  /  ( I0( IX'IPEiO. J> I  I 
WRITE  (LUN4.4I6I  ( T I  MAX ( I  I . I > I »NUNI 
A  I  4  FORMAT  (lOliX.lPf 10. 3»l 
WRITE  (l UNA. A! 7 > 

At  7  FORMAT  (//•  VELOCITY  LEVELS  FOR  CLECTRONSS/I 
WRITE  4  LUNA . At A >  < V  I MJM4 k l .k - I .NUM > 


START  INTEGRATION 


CUR  I -0.0 
CUR2-0. 

fOFFI-l *P( -PMI ( J) 
AM  1 10-0. 

BMUO-O. 

ABEL  0-0. 

ARFI  ft.o 


l"M-0. 
ASCAO-n*. 
MSI  AO  *4. 


1*0  HID  I  I  .NUMMI 
OINOM>G|NUH(  1 #|  >  V I NUM 4  I > 

AM  IN«lLU‘j*  T  IMIN<  1*1)  »  -  COS  i  t  1  Ml  N<  I  f  ■  •  7  0#  NUM 

kMlN*CUS  4  T|MIN>  I  »  *  AM  1  Nl  V  J NUM  *  I  I 

AMR  *  *  4  CDS  >  1  IMAt.  Ill)  • -t  IIS  <  T  IMAXi  I  >  )  l  /  PE  NOM 

DMA  X  -I'llS*  1  lNA<<  ll»- AHA  X  BG  1  NUM  4  I  I 

AMI  4  1 *  AH  I N - AHA < 

KM I  A  I «  BM IN- DMA* 

ClIRl*  TOR  I  #EXPC  -VI  NUM  <  I  )BB2>B<  < AMI  X 1 -AMI XO I B •  J  .  #  G  l  NUM  i  1  i  *».'>* 

I  . HnlXl  BMlxOlBi VINUHl  IltCOCF  I  4  V I  NUM  4  I  >>  >  > 

IF  >  If  Alll  I4  3».EU.O‘GO  10  02.1 

A|r£l  J  .COS  4  T  IM|N«  1*1  >  I  •  DEL  EE  4  I  ♦  I  >  -EOS  4  IlMlNlll.AlltLti  'll  I  /  Of  NUM 
KOI  l  1  'Of  LI  £4  I  •  (COS  4  I  IMIN4  I  >  I  -  A£l#t  1  BG  I  NUM  '  I  I 

AOHM=  I  to  j  1  riMAXl  Ifl  I  )  Bi'LLtf  «  |f|  I-C0S4  I  I  MAX  4  I  I  IBDLLEE  4  I  >  I'PEnOM 
BDElH-PELEt  4  I  ISCOSl  »  IMAXI  I  <  >  - A0ECMBUINUM4  I  I 
AM  L  1  1  APE  L  I  -  APE  LH 
HM  L  I -Hilt  L  I  -  B DEL H 

f  Ilk  2  »C41K2  *E  XP  4  -V  I  NUM  4  I  IBB2IB4  4  APE 1 1 -ADEL 0  I B <  I  .  f  G  I  NUM  4  I 
1  (HI'EI  1  -Bl'ELO  I  •  4  V  I  NUM  4  I  l  fLOEF  l  4  G I  NUM  4  Hill 
W.’3  IF  4  (FAULT  (  4  l  .EO.OlGO  10  024 

AS LA I • iCUS( T I M I N  4  Ifll  iBtTAlIFI I -COS  4  TIMIN4I I >BETA< I  I 1/DiNOM 
PSCA I »E  I A 4  I »BCOS< TIMIN4 I  ►  I -ASCAI BV INUMl I  I 

ASC AM  -  4  COS  < T I MAX  4  I ♦ 1 > ) BE  T A  4  I ♦ 1  I -COS  4  T I MAX  4  I  I  I  BE  I A4 I > ) /DC NON 
PSCAN*E  T  A  4  I ) BCOSC T I MAX ( 1  I t -ASCAMBGINUMl I > 

ASCAI «  ASC A  t - ASC AM 
BSC A  1  * BSC A I -BSC AM 

COR i- CUR 3*1 XF4 -GINUM4 1 > BB2  l  B 4  4 ASCAI -ASCAO > B < I . *VINUM4  I 
1  )•*?>♦<  BSC  Al-BSCAOIB  4  VINUM4  I  I  *CO€F  T  4  GINUM4  IHH 
8?4  CONTINUE 
014  AM I  X  0- AN  I  X 1 
BMIX0-BMIX1 

IF  4  IF AUL  T(3> .EO.OlGO  TO  813 
ADELO-ADEL 1 
BOELO-BDEL 1 

013  1F4 IFAUL T44> .EO.OlGO  TO  81A 
ASCAO-ASCAJ 
BSCA0-BSCA1 
0 1 A  CONTINUE 

c 

c  COMPUTE  ELECTRON  CURRENT 
C 

CUR22-CUR2 
CUR  3 3-CUR 3 

CELEC i J > -RATEBCOFF 1 BCUR1 BDEN+CELEC 4  J) 

IF  (F-MI4  JI.GT  .0.0)  CUR2- 

1  4  ?. 0BSAYB4  SORT  4 -PHI  4  J I /RAT  104  3  > I *COEFT  4  SORT  4 -PHI <  J>7 

2  RAT  104 3  I  I ) I IBEXP4PHI4 J) /RAT  104 3) IBCUR2 
IF  4  PHI <  J) . GT .0 .  )  CUR3- 

1  4  2 . 0BSAYB4  SORT  4 -PHI  4  J l/RAT 104  4  >  >  *COEFT 4  SORT  4 -PHI  4  J)/ 

2  RAT  104  4  I >  > > I  BE XP 4 PMI 4 J) /RAT  104 4 1  IBCUR3 
CSFC4  J) -RATE  BCOFT  1 BCUR2SDEN*CBEC  4 J> 

CSECI  4  JI-CSEC1  4  J)  ♦RATEBCQFFIBC4JR22BDCN 

C BSC AT  4  J I -RATEBCOFF 1 BCUR3BDENFCBSCAT ( J> 

C BSC A l 4 J ) -C BSC A1 4 J I ♦ RATEBCOFF 1 BCUR33BDCN 
GO  TO  710 
709  CONTINUE 
7j0  CONTINUE 
7 j5  CONTINUE 
RETURN 
END 

FUHCYIOH  COEF3lEX> 

IMPLICIT  REAL  B0  (A-H.OZ) 

C  C0EFT4EX)  -  0.5  B  ROOT  OF  PI  B  EXP(EXBEX)  B  4 1 . 0-EFT 4£X>  > 

C  EFT (EX  I  -  2.0/R00T  OF  PI  B  INTEGRAL  FROM  0  TO  EX  OF  EXP4 “TBT IBDT 

C  SELF-SUFFICIENT.  MORE  ACCURATE  VERSION  USINO  TAYLOR  AND  ASYMPTOTIC 

IF4EX.LE.3.2)  GO  TO  10 
VIN-0.5/EX 
V-VIN/EX 

CENT-945 . -VB  4 10395 . -VB  4 1 331 35 . -VB  4  2027023 . -VB  4  34459425. 

1  -VB327364S37.5>>>> 

COEFT  -  4  <  < ( 4 -CCNTBG* 103.0) BV- 15.0) BV* J . 0  I BG- 1 . 0  I BV* I . O) BVIM 

RETURN 
jO  W-EaBCX 
FNC-0.0 

IF4EX.GT.2.8IFNC- 

J  -WB4  2. 4830AVOV 745491 3E-47-WB 4  A . 205AS7919A37400C-49 
k  -MB  4  I . 5 1  3 10794934 121 8E -50-WB  4  3 . AO 1 5 793090 1 0 1 2BE -32 
L  -WB(  8.37341 96830722B  7E- 54- WB  <  1 . 902341 2272890B1E-33 
M  -MB 4  4. 22A 789754 19J555E -3 7-WB (  9. 18A429302390A93C-39 
N  -WB4  I .934102582324173E-A0-WB4  4 . 070 1 3327 78332A0E -A2 
0  -WB4  0. 3044143059291 17E-A4-WB4  1 . 66030031 3451 09 l£ -45 
P  III  III  ID  II) 

FNB-0.0 

IF (EX.GT .2.1 IFNB- 

D  -WB4  4. 47848351 551 840AE-29-WB 4  1 .669761 79341 7372E-30 
E  -WB4  5 . 754 1 9 16439821 73E-32-WB 4  1 . 91 6942862 109783C-3J 
F  -WB4  6. I0O3O7S88222798C-35-WB4  1 . 9303572088151081-36 
G  -WB4  5 . 84673S007468838E-38-WB 4  1 . 7 18856062801 784C -39 
H  -MB4  4 . 908923964S2342SC-4 1 -WB<  1 . 343041 241 7791 40C -42 
I  -WB4  3.682493515461 147E-44-WB1  9.687280238S70744E-46 
J  *FNC  III  D)  III  ID 

SUM-0. 08422692S4S27S8OCO-EXB4 1 .0C0-WB4  3. 333333333333333C-01 

1  -MB 4  9.999999999999999E-02-MB4  2. 38095238095230 IE -02 

2  MB  4  4.429429429429429E-03-M4t  7 .573 75 737575 757 4C -04 

3  -WB4  1 .O60374O48374O48E-O4-WBI  I . 322751 322751 323C-03 

4  -MB  4  I .4309 1490009337 IE -06 -MB  4  1 . 4503852223 1504 7C -07 

3  -W»4  1 .312233294380281E-08-M84  I .089222 103 7 1485 7E -09 

6  -MB 4  0.330 702 795 14 7239E-II-MB4  5.94779401 343743SC- 12 

7  -MB 4  3.9SS4295164S8526E-13-MB4  2. 4448270I0244457C - 1 4 

8  -MB 4  I . 44832446433981 4E - 1S-MB 4  8 . 03273501 24 1 3774C-1 7 

9  MB  4  4. 221 40 72088O7O88C - 1B-WB <  2 . 1078351 91 442134C- 19 

A  -  MB  4  1 .OO75I649349O772C-20-MB4  4 .S5184673B928200C-22 
B  -MB 4  t .977064753877905C-23-MB4  8. 7301 4929921 4 223C-2S 
C  -MB  <  3.2892403491 7S7S2C- 24-MS  4  1 . 264 1 0709009091 4C -27 

D  *FNB  DID  DID  Dll)  DID  DID  > 

COCF T*FXF (MIBSUM 

RETURN 

END 

FUNCTION  CFT4CX) 

SRP I -1. 772453850905514 

CFT-l.-EXPl -CXBB2IBC0CFT (EX  IB2./8RPI 

RETURN 

END 

SUBROUTINE  FLOMP 

CBBBBBBBBBBBBBBBBBBBBBiBBBBBBBBBBBBBBBBBBBBBBBBtBBBBBBBBBtBBBBBBBBB 

C  PURPOSE:  effect  of  a  flowing  plasma  on  ion  COLLECTION 


RE  TURN 
END 


CIO 


SUBROUTINE  F'MO  I Q  <  N  .  N ANU  •  l  1 1 K  •  1  )»fc  UN  .  OH*  GA  .  SO  »  J  ) 


C  PACKAGE  •  4 


C  CURRENT  COLLECTION  DUE  TO  SECONDARY  PARTICLES  (  PHOIDtLEC IRONS. 
C  SFCONPAR1CS.BAOSLATTCRS.CMC  IKONS  INDUCED  BY  PROTONS) 


C 

C 


C 

CmMMIHtllllllttTIIIMItlUUItllMflMUMITMIIIMHIMMIMI 

INTEGER  PERSEC  » SEC IN0 , P( RPAN • PAM IMD 

CONNON  PSAW€( 144.10) .CSAVEt 1 44 . 10 > . PSEC TR ( 1 44 > . CSCC T R < 144», 
lDtLEClCO».DCLNAX( 144) ,ENA«( 144). ETA( 20). DSCAT 1(144). 

2BSCAT21 144) .BSCAtS! 144) .PHO<2O.40). 

1ANG140) .CPHONX ( 144). SUNANG . ANGO  >  PCMJNDL 1 20.40*. ROUND I ( 20.40  > . 
2ANGL<  20.40 ) .01  I (20.40) . ICHECM 20. 40 ) .RAT 10( 13) . 1ROOT< 144). 

JIFAUC  T  C 1 4  » . JLOCAL <1441. ICON( 1441, 

1 01 <  20) .EV<  0) . HUE V.N TINES. ILEV. T ININt 20) . I XMAX  (  20  >  .  VlNUMI  20  >  . 

2A< 144>.»< 144).C<144) .BB< M4  >  .»W(  J  4«>  »  TW <  1 44 >  . DWI 1 44  >  . 

3EW< 144).  I UOC OS <  700 ) . 

1  IFLG.NPOINT.il.  I GEON  , I SYM,  IPO  I S  .NSEC  T  .NPEROD .  NPCROD  .  1  DINT  . 

2GAMMA, OVOX < 20.48) ,OVDY( 20.48) . II 1 44) .DEL  TAX. DEL  TAT . 

3YS<  44.48) .XS< 44) .XSS<  70) • 

I VARBLE  <  4). T.OCLT . SBOUND . NDIN . POT .M. Jl .RP I . RPI 2.RP I MAE . SOTPI . 

2SAY  • TEHPE I . TENPE2 • DENE  1 . DENE 2 . DENI 1 » DENI  2. TEMPI  1. TEMP  12. 
3TENPR.LUN3.LUN4.LUN3.LUNA.LUNX.LUN8.LUN9.LUN10. 

1  I DTE (144) . JDTL  <144), PERSEC ( 144) .SECINDi 144) . I PANEL (144). 

2Pf RPAN< 144.4) .PANINOt 144). 

IC10N1 144  > >CELEC( 144) .CSEC< 144) .CSEC1 1 1441 .CPHOTOl 144). 

2CPM0T I < 144).C»SCAT< 144). C8SCA1 4144). SECPRN1 144). S£a PRK 144). 

3PM I < 144) ,CGUN< 144) * 

1KASE. JONL.DPH1 .NANO, RAO. POOUND.ONEGA.ALPMA.SO.jp. |S. CCS. 

2ExPVI2(  20 >»£FTVI<20>» I ERROR .TETNIN, YETHAX »  BE  TAI .BE  TA2. JLESS. 
3L2.CARR1V.CPH. XI . CSECEL • CSCCE 1 .CS.C8.CS1 • CB 1 
C  THIS  SUBROUTINE  CALCULATES  THE  PHOTOELECTRON  CURRENT  CPHOTO 
C  CPHOTO  CONSISTS  Of  TWO  PAR TS : CPHOTO .MAIN  PMOTOClECTRON  CURRENT 
C  LEAVING  A  LOCATION  DUE  TO  DIRECT  SUN.ANO  CARRIV,  PMOTOCLECTRON 
C  CURRENT  ARRIVING  AT  A  LOCATION  f RON  OTHER  PORTIONS  OF  THE  CRAFT 
C  PHI  IS  POTENTIAL  ON  SPACECRAFT  SURFACE 
C  N  IS  NUMBER  OF  GRID  POINTS  ON  SPACECRAFT  SURFACE 
C  NANO  IS  NUMBER  OF  INTERVALS  THAT  HALF -AMOLC  (RPI/2)  GRID  FOR 
C  PHOTOELECTRONS  IS  DIVIDED  INTO.  NANG  SHOULD  DC  ODD  SO  THAT  THERE  IS 
C  A  GRID  POINT  FOR  RPI/2 
C  Nt-CV  IS  NUMBER  OF  VELOCITY  LEVELS  USED 
C  CPHONX  IS  MAXIMUM  CURRENT  DUE  TO  PHOTOCLCCTRONS 
C  PHO  IS  ACTUAL  CONTRIBUTION  AT  EACH  POIMT  DUE  TO  SUN  ANGLE 
C  ANQ  IS  LOCATION  Of  EACH  GRID  POINT.  NOTE  THAT  AMO  AND  PHO  ARE 
C  NLEV  X  NANG  MATRICES. 

C  KL  IS  A  FLAG 

C  KL-O. BOUNDARIES  DC  TERHINE  D  BY  GRID  POINTS  IN  VELOCITY  SPACE 
C  KL-1. BOUNDARIES  DETERMINED  BY  BISSECTIOH 

. . . 

DATA  KL/O/ 

DATA  DAN9/0 .01 7/ 

DATA  FAC/1 .O/.DVI/O. 01/ 

GAMMA* AATIOIS* 

DELANO- . 5«RP I /FLOAT ( NANO- 1 ) 

L1-2BNAM0-1 

L2-L1-1 

NDIN-4 

VAR3-Y <  J ) -SUNANO 
CPHOTOl Jl-0.0 
CPMOTlf J>-0.0 

1 F  <  COS ( VAR3 ) . NE . AB8 < COS ( VAR3  >  > >  RETURN 
C 
C 

c 

c 

C  GENERATE  COEFFICIENTS  PMO(I.L)  AND  ANOIL >  FOR  USE  IN  CALCULATING 
C  PMOTOCLECTRON  CURRENT  DUE  TO  PHOTOf LECTRON3  ARRIVING  FROM  OTHER 
C  PORTIONS  OF  THE  SPACECRAFT 
IOML-1 

DO  300  I - 1 • NLEV 
DO  190  L-1.L1 
IF(KL.EO.O)  I  CHECK ( I ,L  > • i 
IF(KL.EO.l)  (CHECK ( I »  L  > -0 
PN0(I»L)-0.0 
IF(IOML.CO.O)  QO  TO  IPO 
ANO ( L > -OCL AN08FL0A T < L - 1 1 
DCTAI-VI < I >BB2FPMI ( J> /GAMMA 
IFliETAl.LT .0.0)  oo  TO  ISO 
VARBLE! 1 > "BO 

VARBLE(2)-VI< I >BS1N( AMQ(L > ) 

VARDLf <JI-r<J> 

VARDLC(4>— VI  <DBC0S<AM0<L  )> 

COSA-COS< ANO<L>  ) 

DBCTA— COOA*OV*X(1,J)/I2.0*VMI)*B2BOAHNA>FCOSA 
IFIL.EO. 1. AMO. DBCTA.LT. 0.0)  GO  TO  100 
IF(L.Ea.LJ.AM».D*CTA.OT,0.0>  OO  TO  100 
I  CONTINUE 
T-0. 

CALL  ORBIT < SO. BCTA1 , J > 

IF  <  VARBLE  < I ) .OE. (8B0UND- DEL  TAX) >00  TO  1*0 
VAR3-VARDLE  <  3 1 -SUNANG 

IF  < ABS ( ( POT -PHI <  J ) > /RATIO! 9) > .L  T . lOO) 

IPN0( I.L MCPWONXIJl) *( COS( VAR3) PABS< COS! VARI) > ) 

1BEXP( (POT -PM 1 ( J  > ) /RAT  10(5) > /SOTPI 
IF  (PNO< I.L) .CO. 0.0)  I CHECK ( I <L  >  *  1 
00  TO  190 

ISO  VAR3-Y(J> -SUNANO 

PHOU.LT-  CPMOHXl J)B(COSI VARS) FABS(COS< VARS) >) /SOTPI 
190  CONTINUE 
JOML-O 

DO  TOO  L-l  .1 1 

|F(PMOl I.L>. HE. 0.0)  10ML-IONLF1 
IO0  CONTINUE 

C 

C 

C 

C 

DO  1*7  L-I.LI 
DO  1*7  t • 1 .NLEV 
DOUNDl < I »L  * *PHO« I.L* 

BOUND  I ( I .L ) -PHO( I .L * 

Vlf<r.LI-VI<D 
MHV  I  t.l  *  "ANrt*  I  t 


19  '  f OMTlHUi 

IF  «Kl  .»  U.lr)  <40  TO  2100 
HO  20V  I «  t  • NLL  V 
DO  200  t  *1.12 

l*  .  llMtCM  I  .1  *  .10. 1  .OR.  ILHtCKI  1  .1*1  )  .10.  I  *  00  10  200 
If  (PMOI  I  *L  •  .»  U.O.O.AN|).FHO(  I  .1  ♦!  *  .  Mt  .  V.O  '  bO  10  201 
IF  (PHUl  l  .1  )  .Nt  .  0.  V  .AND.PNUI  I  .L  »  I  *  .  I  U.O.  0  *  GU  (U  20.' 
Go  (0  200 

201  LCUT"l 
AMGA<ANOU  ) 

4NGB*ANG<  l  F 1  ) 

GO  TO  20 J 

202  l CUT *l FI 


ANGB*ANG  < l ) 

201  ANGLE -O. 54 (ANGAFANUB) 

204  A(M  D- ANGLE 

VRRflE  «  1  * -SO 
VARBLE  «  2»  <ANGLE 
VARBLE < i>.r< J) 

VARS •VARBLE (3)  SUNANG 

Bf  r At «VI < | ) FVI < l I FPNl ( J) /GANNA 

IF(BETAI.LT.O.V)  DUUNDL  < 1 .1  CUI  > "CPHONX ( J I B ( COS( VARS ) ♦ 
1  ABS <  COS ( VAR  3 ) ) ) / SO IP  1 
IF < BE 1A1 .1  I .0.0)  OO  TO  20/ 

T-0.0 

Call  opbi  kso.be  tai  .  j> 

IF  < VARBLI < I ) .GC . (SBOUND-DCL TAX) >  GO  TO  204 
VARS - VAR BL E C 3 > - SUNANG 
I SURF-1 

IF  <  ABS<  (PHM  J> -POT  )/OAMMA).LT.  100.0) 

1  BOUNIH.  (  I  .1  CUT  )  "CPHONX  4  _J  J  >  B  <  CDS  <  VAR  J  >  F  ABS  ( COS  <  VARS )  )  ) 

2  BEXP(  (POI  -PHD  J)  ) /GAMMA) /SOTPI 


GO  TO  203 

204  4 MCA ‘ANGLE 

205  ANGLE-0.5B(ANGAFAN0B> 

If  (abS(angle -aold>  .ot  .  daffo.or.  isurf  .co.o)  go  to  204 
20;  AMGL ( I . ICUT ) -ANGLE 
200  continue 


C  I  HEN  DO  A  REFINEMENT  AS  FUNCTION  OF  VELOCITY  LEVELS. 
I  SURF -0 


NLEVl-NLCV-t 
DO  210  L-I.LI 
DO  210  I-1.NLCV1 

IF  <  ICHCCR(  I  .L  >  EO.  1  .OR.  ICHCCH4  Dl.D.EO.  1  >  00  TO  210 
IF  ( PHO l I , L ) .£0.0.0. ANO . PHO( I F 1 .L  > . NC .0-0)  GO  TO  211 
IF  (PHO. I.L > .NC .O.O.AND.PHOl IF1.L) .£0.0.0)  CO  TO  212 
GO  TO  210 

211  1 CUT-1 

VI A- VI ( 1 ) 

VfB-VK  Ml  ) 

GO  TO  213 

212  1 CUT- I F 1 
VlA-VMMl) 

VIB-VI < I > 

21J  VIN—O. SB( VIAPVIB) 

214  VIOLD-VIM 


BE  TAI-  VIMBB2FPHK  J) /GAMMA 
VARBLE 4 1 >-S0 
VARBLE (2)-ANG<L> 

VARBLE  <  3>-Y  <  J> 

IF(BETAl.LE.O.O)  BOUND I < ICUT *L ) -CPHOMX< J ) B < COS< VARS M 
1  ABB ( COS ( VARS  > ) > /SOTPI 
IF ( BE  TAI .LE .0)  OO  TO  217 
T-0.0 


CALL  ORBIT (SO. BE TAI. J) 

IF  < VARBLE <I».OE.< SBOUND-DCL TAX))  OO  T0214 
VAR3-VARBLE < 3  > -SUNANO 
I SURF -I 

IF(ADS< (PHI <J>-POT)/OAMMA).LT. 100.0) 

1  BOUND  I  <  ICUT.  D-CPHOMX<  Jl  )B<CO»(  VARS  >  FADS  <  COS  <  VARS))  > 
1  BEXP< (POT-PHI <J) ) /GAMMA) /SOTPI 
VIB-VIM 
QO  TO  213 
214  VIA-VIN 
00  TO  213 

213  VIM-O. 3B(VIA4VIB) 


IF ( ABB< VtM-VIOLD) .OT .DVIB(VI( 141 ) -VI < I ) ) .OR. 1  SURF .CO.O)  00  TO  2IA 
217  VII< ICUT  >L  >-VIH 
210  CONTINUE 


C 

c 

2100  CONTINUE 

C 

C  CALCULATE  CPHOTO 
CURNIN-O. 

CUR MAX-0, 

CARR! V-O, 

VAR4-YIJ) -SUNANO 

CPHOTOl J ) - . 3BCPH0MX ( J  >  B  <  COS  <  VAR 4 ) BASS  <  COO  4  VAR 4 1 > 1 
CPHOT 1 < J ) -CPHOTO! J ) 

IF < I FAULT <41 . EO.O)GO  TO  4000 
C PH-0.0 
00  330  L-I.LI 


IF  <PM0< 1 »L  > .NE .0.0. OR. PHI < Jl .OT .0.01  CPH-2.0BCPH0T04 J) /SOTPI 
330  CONTINUE 

WRITE  < LUNA .4000 )  J 

4000  FORMAT  </»X.B  8AMPL I NO  IN  VCLOVITY  SPACE  FOR  PHOTO  ELEC  AT  J-B.IS/ 

I  > 

WRITE  ( LUNA. 400 )  < <PMO< I fL » » I-» .NLEV) *L«I »L I > 

400  FORMAT  <•< IX. 1PE*. 2> > 

WRITE  < LUMA .401 1 

IF< J.MC.i )  OO  TO  S3* 

WRITE  < LUMA . 400 )  < < DOUNDL < I»L > . I -1. NLEV) .L-l .LI ) 

WRITE  (LUMA. 401) 

WRITE  < LUNA. 400 Ml DOUNDl < I.L » .1-1 .NLEV) .L-l.L 1 » 

WRITE  (LUNA. 401) 

WRITE  (LUNA. 400)  < < VI I < I »L » • 1-1 .NLEV) #L-» »L1 ) 

WRITE  (LUNA. 401 ) 

WRITE  (LUNA. 400)  4 ( ANOL < I *L > . 1-1 .NLEV) .L-l .LI > 

WRITE  (LUNA. 401) 

WRITE  (LUNA. 400)  < VI < I » » l-l .NLEV) 

WRITE  (LUN4.402)  <  < I CHECK ( I »L ) f 1-1 »NLEW) »L-t  »LI ) 

402  FORMAT  <SIO) 

35*  CONTINUE 

CALL  FIT<L2,CARRtV,CURHIN,CURHAX. J.CPM.PHI .N . OAMHA ) 

4000  |F (PHI (J).GT.O.O) 

1  CPHOTO ( J) "CPHOTO( J) B2 .0BSAYB4  SORT < -PHI ( J l/RAT 10(3 ) ) ♦ 

2  COCFT ( SORT  < -PHI <  J  > /RAT  10(3  > ) 1 ) 

3  IEXP(PH|(J> /RAT I0< 3 > ) 

401  FORMAT ( //) 

J40  CPHOTO< J) -CPHOTOl J) -CARRIV 
341  FORMAT (2<|R.|PE10.3>) 

400  CONTINUE 
RETURN 
END 

SUBROUTINE  BE CON (N. NANO. PM I .CSCC . ITER. I OF ON, ONE OA. SO. Jt 
t  rm re i * 


Cll 


INTEGER  PERSEC.SECIND.FCRPAN.FAMINB 

COMMON  ►SAVE  -  144.10'  .CSAVE  I  144. 1C>  .  .►  ate  TR<  144  >  .L’SCC  TR  .  144  >  . 
I?ELtt . .0  >.[£,.  MAX.  144 > .tMAX. 144) .CT*<  20 > . BSCAT 1 1  144  > • 

2B~l*4T2*  1  44  1  •  f>SC AT J.  144>.FH0*20,40'« 

IANJ.40'  144  >  .  iUNAMu  •  AnCO.  BOUNDl  . ?0. 40  *  •  BOUNDl  *  20«  40  I  . 

-  4MOI  • JO • 40  * II  2v • 40 1 • (CHECK ■ 00*40 1 -RAT  10*13  * . IROOt  *  144 i . 

3  If  4Ut  r  v  14  •  .  JLtX'Al  *  144  >  .  ICON*  1  44  >  . 

:  *•;  *  20* .cv.  $  •  .nlew  .ntihcs.ilcu.timin*  ooj.iima-i.oo'  .vinum. 20 >  . 

0A«  144  •  .  p  .  144  »  *c  *  144*  .  PBi  |44  >  .  PW«  144)  *  TW«  144  >  .DW*  144  »  . 
i£W  1 44  i . TUOCOi * ~00*  • 

ilFLG.MROlNr.M. igeom. isym. iro is .nsec r .mrerod .mfc rod . I p inr . 

JOAMMA.tiVtlX*  '0.48  .  .pVD»i  *0*  40  t  «  >  •  144  >  •  I*CL  I  AX  .OCLTAT  . 

3>S«oo.  48*.  *S<  6a  ■  -«SS<  '0*. 

i warble -  4  - . t.delt .sPouNO.NCiM.Ror.N. ji .rri.rri o.rrihaf .sotr i . 
JSAt  .  T£Mf  1 1  •  T£Mf £?.PCNC1. D£n£2> DEN! t.DCNt?. TEMPI l. TEMPI 2. 

3  I£MPR  .LUN3.LON4  ■  LUNS  »  LUN6  •  LUN  7  •  LUM8  •  t-UNW  .  (_UNIQ  . 

I 1PTL .  144  >  . JPTL *  144 > .PCRSEC* 144 >. SCCI ND< 144) . 1  PANEL (1441. 

2PCRF AN*  1 44- 4 ► .PANINP.  1 44  >  . 

1L ION.  I44>.CClCC* 144>.CSCCt 144>.CSCC1< 144  >.CPHOTO(  144 > . 
OCfMOTlt  1441  .CBSCAT.  1441  >  C8SCA 1 l  144 ) «SCCPRN<  1441.SECPR1.  1 44  > . 
3PM1 \  144  « .CGUN.  144'  . 

1KASE .JOML -DPHl .NANG. RAP. PBOUNP.OMCGA. ALPHA. so. JP.1S.ECS. 
0CXPV1O*  00) .CP  TO I .00) • 1 ERROR. T£ ThIn. TE TMAX . BE T A 1 . PE T A2 . JLCSS . 
3L0.CARRIW.CPH.XI .CSCCEL.CSCCCl.es. CB.CSl .CBl 
C  I  HI  a  SUBROUTINE  CALCULAICS  TMC  SECONDARY  CURRENT  CSEC 
C  CSEC  CONSISTS  Of  TWO  P ARTS : C S£ C • MAIN  SECONDARY  CURRENT 
C  LEAVING  A  LOCATION. AMO  CARR  I V. SECONDARY 

C  CURRENT  ARRIVING  AT  A  LOCATION  EAOm  QTH£R  PORTIONS  OP  THE  CRAPT 
C  PHI  is  POTENTIAL  ON  SPACECRAFT  SURFACE 
C  N  IS  NUMBER  OP  GRIP  POINTS  ON  SPACECRAFT  SURFACE 
C  NANG  IS  NUMBER  Of  INTERVALS  THAT  M4N. P - ANGeE  <RPI/2>  GRID  FOR 
C  SECQNPAAYS  IS  DIVIDED  INTO.  NANG  400LD  BE  ODD  SO  THAT  THERE  IS 
C  A  GRID  POINT  FOR  RPI/2 
C  NLCU  IS  NUMBER  OF  VELOCITY  LEVELS  USED 
C  Pmo  IS  ACTUAL  CONTRIBUTION  AT  EACH  POINT 

C  ANG  IS  LOCATION  OP  EACH  GRID  POINT.  NOTE  THAT  ANG  AND  PHO  ARC 
C  NLCV  4  NANG  MATRICES- 
DATA  DANG/0.01  V 
DATA  FAC/1 .0/ .DVl/O. 01/ 

DATA  AL/O/ 

GAMMA-RAT I0< 3) 

NOIN-3 

DELANO- . StRP I /FLOAT ( NANO- 1 > 

L1-24NAMQ-1 

L2-L1-1 

C  GENERATE  COEFFICIENTS  PHOII.L)  AND  ANG«L>  FOR  USE  IN  CALCULATING 
C  SECONDARY  CURRENT  DUE  TO  SCCONDAftYS  ARRIVING  FROM  OTHER 
C  PORTIONS  OF  THE  SPACECRAFT 
IOML-1 

DO  300  I - l . NLCV 

DO  1*1  L-1.L1 

IF  <  RL . EO . 0  )  ICHCCKI IrL)-l 

IF  <  CL  .  CO  .  1 )  ICNCCM  1.L1-0 

PHO<  I.D-0.0 

1F< IOML.EO.O)  GO  TO  1*1 

ANG ( L  > -DEL ANG* FLOAT ( L - 1 > 

BCTAl-VIi I >**2+PMl< J> /GAMMA 
IF.BETA1.LT. 0.0*  GO  TO  180 
WARBLE < l )-S0 
VARBLE < 2) -ANG<L> 

VARBLE  <3)*YtJ) 

COSA-COSC  ANO<  L ) > 

DBC TA- -C0SA4DVDX < 1 . J ) / < 2 . OBV I < I > ••24GAMMA > 4C0SA 
IF<L. EO. 1 .AND. DBETA.LT. 0. >  GOTO  180 
IF  <L .EO.L1 . ANO. DBCTA.GT .0. )  GO  TO  180 
T-0.  ..... 

CALL  ORBIT < SO* BCTA1 »  J  > 

IF (VARBLE ( I ) . OC . 1 SBOUND-DCL TAX ) >00  TO  1*0 
IF  <ABS<<PHI< J>-PGT> /RAT  10(3 M.LT.IOO. ) 

1  PNQ< I.L)-2.0*CSEC1< J1)4EXP< (POT-PHI <J)> /RAT I0< 3))/ 

2  SOTPI 

IF  <PHO<  X»L> . EO.O.O)  I CHECK < I > L  > -1 
GO  TO  1*0 

180  PMO< I *L )*2- 04CSEC 1 <  J) /SOTPI 
1*0  CONTINUE 
1*1  CONTINUE 
I0ML-0 

DO  300  L-l.Ll 

IF < PHO< I »L  > . NC .0.01  10m.-I0W.4l 
300  CONTI NUf 


IF  <FHO.  I  >L  >  .EQ-V.O.ANP.PmO<  t  *1 -L  .ME  .0.0*  f.»  .[ 

IF  <F-MO.  I  -L  •  .HE  .0.0.  AnP.PhO.  l*  1  *L  ’  EO.  *>.  V  jJ  •  ■'  !. 

GO  TO  210 
'll  ICUT-I 

VIA-Vl • I • 

VjB-Vl <  I  4]  i 
GO  TO  215 

212  ILUT-lM 
VlA  — Vi .  1 4  I  > 
vIB-v| « | i 

213  VIM-O.s*. VIA4VIB > 

21a  violD-vIh 

BE  T A | »  V(MB»2*PM|  I  J >  GAMMA 

IF> BETAI  .1 1 .0.0 >  BOUND I . 1  Cu I >  L >• 2 . 0*C SEC  1 • J •  SOTPI 
JF  .BETAI .l£ .0.0<  GO  TO  21’ 

VARBLE < 1 i -SO 
VARBLE <2> -ANG< L  > 

VARBl£< ji.i I J) 

T-0.0 

CALL  ORBIT.SO.BE TA1 , j> 

IF  (VARBLE i  I  '  .GE .  ■ SBOUND-DELTAi >  »  GO  T0214 
IF<ABS<<PHI «  j) -POT )  'Gamma  -  .1  1 . 100.  > 

1  BOUND I* ICUT.L I-2.04CSCC 1 k  J1 >•£  Xf  <  >POT-PNl< J • >  GAMMA -.SOTPI 
21?  V1B-VIM 

GO  TO  215 

214  VIA-VIM 
GO  TO  215 

215  VIM-O.S*< VtAfVIB) 

IF.ABS<VIM-VIOLD>  .GT.PVUtvn  141  t-vl<  l»  )  '  GO  TO  2la 
VII* ICUT.L  »-VIM 
210  CONTINUE 


2100  CONTINUL 
C 

C  CALCULATE  CSEC 
CURMIN-O. 

CURMAX-O. 

CARR I V-0 . 

I F  < I F AUL  T<  7) .£Q.0> GO  TO  4000 

CPH-O.O 

DO  350  L-l.Ll 

IF.PHOc I.L > .NE . 0.0. OR. PHI < Jl.GT.O.O) 

1  CPH-2 ■ 04CSEC 1 <  J ) / SO  TP  I 
350  CONTINUE 

WRITE  (LUNA >6000)  J 

4000  FORMAT  (/IX.tSAMPLING  IN  VELOCITY  SPACE  FOR  SECONDARIES  FOR  J-*. 

1  13/) 

WRITE  <  LUN6 . 600  >  (  <PHO<  I.D.I-l  iNLEV)  .L-l.Ll) 

400  FORMAT  <8< IX. 1PE9.2) > 

359  CONTINUE 

CALL  F IT (L2.CARRIV. CURMIN. CURNAX . J ,CPM» PHI. N. GAMMA) 

4000  CONTINUE 

360  CSEC  <  J) -CSCC<  J) -CARR IV 
400  CONTINUE 

RETURN 

END 

SUBROUTINE  BSCATR<N. NANG. PHI. CBSCAT. ITER. IGEOM, OMEGA. SO. J.CBSCAl j 
INTEGER  PERSEC.SECJND.PERPAN.PANIND 

COMMON  PSAVE  < 144. 10 > .CSAVE < 1 44 . 10 > .PSECTfi < 1 44  I . CSEC TR < 1 44 ) . 

1  DC LEE  <  20 ) » DEL MAX <144) .EHAX < 144) . E T A ( 20  I « BSC AT  1 <144). 

2BSCAT2<144>« BSCAT3  < 1 44 ) ,PHO< 20. 40 ) . 

I ANG <  40 ) * CPMOMX < 1 44 ) , SUNANG  > ANGO. BOUNDL  <  20.40 ) . BOUND I <  20.40 ) . 

2ANGL <  20. 40  >  > VI I ( 20. 40 ) . (CHECK  <  20 ,40) .RATIO* 13* • IROOT ( 144) • 

3 {FAULT ( 14 ) « JL0CAL  <1441. I COM 1 144) » 

IV! <  20) »EV(8> .NLEV.NT IMES . ILCV. TININ<20> , T IMAX <  20 ) , VINUM <  20 ) . 

2A< 144>.B< 144),C<  144) ,BB< 144) ,BW< 144) ,TW< 144) ,DW< 144). 

JEW  < 144) . TWOCOSf 700), 

llFLO.NPOINT.N, IGEOM. ISYM. IPOIS .NSECT .NPCROD.MPEROO. IDIMV • 

2 GAMMA . DVDX (70.48), DVDY  <  70 . 48 ) , T  < 1 44 ) , DEL TAX . DEL  TA Y , 

3YS<  46,48) ,XS<64> . X8S< 70) , 

lVARBcE<4),T,DCLT.SiOUND.NDlM,POT,H, J1,RPI,RPI2,RPIHAF,S0TPI • 

2SA Y , TEMPE 1 , TEMPE 2 , DENE 1 , DENE2 * DEN 1 1 , DEN 1 2 , TEMP 1 1 , TEMP 1 2 . 
3TCMPR.LUN3,LUN4,LUNS,LUN4,LUN7,LUNS*LUN**LUNI0, 

1 1 DTL  < 1 44  > , JDTL  < 144) .PCRSEC  < 1 44 ) . SEC IND< 1441, IPANCL  < 144 ) » 

2PERPAN  < 144,4) ,PAN1ND( 144  >  » 

IC I 0N<1 44 ),CCLEC< 144) .CSEC ( 144). CSEC l<144 )»CPHOTO< 144) , 

2CPH0T l < 144  > .CBSCAT < 1 44 > , CBSCA1 < 1 44 > , SCCPRN< 144).8CCPR1< 144) . 

3PH l ( 1 44  > • CGUN  < 144). 


C 

C 


DO  1*7  L-l.Ll 
00  1*7  I-l.NLEV 
BOUNDL  < I »L  > -PHO< I »L > 
POUND I < I ,L >«PMO< I »L » 


VIK  I.D-VK  !> 
ANGL< I.L  >-AHO<L  > 
1*7  CONTINUE 


C 

C 


IF(KL.fO.O)  GO  10  2100 
DO  200  I-l.NLEV 
DO  200  L-1.L2 

IF  < I CHECK < I.L)  ,E0. 1 .OR. i CHECK  C I »L*1 > .CO. 1 )  00  TO  200 
IF  <PNO<I.L>. EO.O.O. AND. PM0<I.L4I).NE. 0.0)  OO  TO  201 
IF  (PHO<I»L>. HE. 0.0. AND. PHO<I.L*t>. £0.0.0)  00  TO  202 
00  TO  200 

201  LCUT-t 

ANGA-ANO  <  L  > 

ANOO*ANO<LM  ) 

00  TO  203 

202  LCUT-LM 

AN0A-AN0(L»1) 

ANO B- ANG < L ) 

203  ANOLI-O . S*  <  AN0A4ANGB ) 

204  AOLD- ANGLE 
VARBLE < 1 ) -SO 
VARBLE  <  2 > -ANGLE 
VARBLE < 3 )-Y< J) 

T-0.0 

BE TAI -VI < I >BVI < 1 > 4FHI * J ) /OAMMA 

IF(BSTAI.LT.O.O)  BOUNDL < I .LCUT  >-2.04CSECl< J) /SOTPI 
IF<BE TAI .LT.O.O)  00  TO  207 
CALL  ORBIT4SO. BETAI. 

IF  <  VARBLE < 1 > .OE . <  SBOUNO-DCL  TAX ) >  00  TO  204 
IF  <  ABS  < < PHI < J)-POT> /OAMMA) .LT. 100. ) 

I BOUNDL  < I .LCUT  >-2.0*C8€CI C  J! )*€**• (POT-PHI I J) ) /OANNA ) /SOTPI 
207  AN08-AN0LE 
00  TO  209 
204  ANOA-ANOLE 
209  ANOLI-O . 5* < ANOA4ANOS ) 

IP  (ASSIANOLE'AOLD) .81 .DANS)  80  TO  206 
ANOL< I.LCUTt-ANOLC 
200  CONTINUE 


NLEV1 -NL I V- I 
DO  210  L-l.Ll 
00  210  !•! * NLfVI 
it  i  irutrt »». i  i.ra.i 


1 RASE . JOML . DPMI . NANO. RAD. ABOUND. ONCOA* ALPHA. SO. JP » IS .CCS . 
;EXPVI2<  20)»EFTVI<20) » ICRROR . Ti THIN. TETHAX .BETAI .BETA?. JLCSS. 
3L2.CARRI V.CPM. XI .CSCCCL .CSECE 1 .CS.CB.CSt .CB1 
C  THIS  SUBROUTINE  CALCULATES  THE  BSCATTCR  CURRENT  CBSCAT 
C  CBSCAT  CONSISTS  OF  TWO  PARTS1CBSCAT .MAIN  BSCATTCR  CURRENT 
C  LEAVING  A  LOCATION. AND  CARRI V* BSCATTCR 

C  CURRENT  APR I VINO  AT  A  LOCATION  FROM  OTHER  PORTIONS  OF  THE  CRAFT 
C  PHI  IS  POTENTIAL  ON  SPACECRAFT  SURFACE 
C  N  IS  NUHBCR  OF  ORID  POINTS  ON  SPACECRAFT  SURFACE 
C  NANO  IS  NUHBCR  OF  INTERVALS  THAT  HALF -ANGLE  <RPI/2»  ORID  FOR 
C  ISCATTCRS  IS  DIVIDED  INTO.  NANO  SHOULD  BE  ODD  SO  THAT  THERE  IS 
C  A  ORID  POINT  FOR  RPI/2 
C  NLCV  IS  HUHDCR  OF  VELOCITY  LEVELS  USED 
C  PHO  IS  ACTUAL  CONTRIBUTION  AT  EACH  POINT 

C  ANO  IS  LOCATION  OF  EACH  GRID  POINT.  NOTE  THAT  ANO  AND  PHO  ARC 
C  NLCV  X  NANO  MATRICES. 

DATA  DANG/0.017/ 

DATA  FAC/I .O/.DVI/O. 01/ 

DATA  RL/O/ 

GAMMA -RAT I0<4> 

DELANO- . S4RP I /FLOAT  <  NANO- 1 > 

L1-28NANG-I 

L2-LI-1 

NDIH-3 

C  GENERATE  COEFFICIENTS  FHOt I.L)  AND  ANO<L>  FOR  USE  IN  CALCULATING 
C  BSCATTCR  CURRENT  DUE  TO  BSCATTCRS  ARRIVINO  FROM  OTHER 
C  PORTIONS  OF  THE  SPACECRAFT 
IOML-1 

DO  300  I -1 .NLCV 
DO  1*0  L-l.Ll 
IF(KL.EO.O)  I CHECK  < I .L )-l 
IF  <  KL  .CO.  t  »  I  CHECK  <  I. 0-0 
PHO<  I.D-0.0 
IF< IOML.EO.O)  00  TO  1*0 
ANO < L > • OEL AN04F LOAT < L - 1 ) 

DC  TA1-VI 1 1 )**24PHI< J) /OAMMA 
IF< BETAI -LT.O.O)  OO  TO  IDO 
VARBLE  < I >-S0 
VARBLE < 2 > -AN8<L ) 

VAABLF  t  3>-V<  J) 

COSA-COS< ANG<L ) > 

BBCTA--C0SA4BVBK I. J)/(2.0*VI< I l*4240AMMAt«C0SA 
IF  <L.EO. I .AND. DBETA.LT. 0.0)  00  TO  IBO 
IF  <L . EO.L I .AMD.BBCTA.GT .0.0)  00  TO  IDO 
1-0. 

CALL  ORBIT (SO.BCTAt. J> 

IF  <  VARBLE  < I ) . Of . • SBOUND-OCL  TAI ) >0O  TO  1*0 
IF  i APS. . PH?i j> -POT  ) /RAT  10(4) ) .LT.200. ) 

I  PHO. I.L )-?.04CBSC4|<  J| >*E«P< .POT-PMl* J) ). RATIO. 4 M/ 

9  SOTPI 

IF  « PH0<  t*L>-E0.O.0l  ICMCCKd.D-l 

no  to  i •« 


- .  f  n 


C 12 


IH©  FM(1« 1.1  I •/.OtcnSLAI ( JI/SOTPI 
V^O  V.ON1  l  NDt 
iom  *o 

DO  10©  L-I.l  1 

I  f  t  f'MQ  (  I.L  >  .  NE  .  0 . 0  >  I0ML-IUML41 
3©©  CONTINUE 


DO  |*7  l-l.ll 

no  i*?  i-i.nlev 
BOUNDL  (  I.L  *  *PMQt  I  « L  I 
BOUND  I <  I.L  >-PNO<  I.L  ) 
©11  *  I.L  )-VI( I > 

AMOLt  l.Ll.MWIU 
1*7  CONTINUE 


IF(KL.EQ.O)  GO  TO  210© 

Ml  200  I-l.NLEV 
00  200  L-I.L2 

IF  dCMECKd.L  >  .EG.l  .OR.  ICHECKd.L4i>.EQ.  I  )  OO  TO  20© 

IF  (PHOd. L>. EG. 0.0. ANO. F>MOd.L4t>. NC.O.O)  OO  TO  201 
IF  4  PHO (I.L). ME .0.0. AMO . PMOl I  >L4 1  >  . EQ . O . 0 )  GO  TO  202 
00  TO  200 

201  LCUT-L 
AMGA-AMG(L) 

AMGB*AMG(L41 > 

00  TO  203 

202  LCUT-L 41 
AMGA-AMG(L4t) 

ANGB-AMG(L) 

203  ANGLE -0.3* ( ANGA4ANGB ) 

20A  AOLO-AMGLE 

WARBLE ( t  >-S0 
WARBLE < 2 ) -ANGLE 
WARBLE  ( 3>-Y( J) 

T-0.0 

BCTA1-VKI >BVI(J >4PNI < J) /GAMMA 

IFIBCTAI .L  T . 0.0)  BOUNDL  < I .LCUT >-2 . OtCBSCAl ( J) /SO TP I 
IF  <  BETA! . L  T . 0. )  00  TO  207 
CALL  ORBlTlSO.BCTAt.J) 

IF  (WARBLE  <  1  >  « G£  ■  <  SBOUND-DCL TAX >  >  OO  TO  204 
IF<AB#< (  PM I <J)-POT) /GANNA I .LT. 100.0) 

1 BOUNOL  < l.LCUT>*2. OtCBSCAl <  J1 ) BCXP  < (POT-PHI ( J) > /GAMMA  > /SO TP I 
207  AMQB-AMOLE 
OO  TO  203 

204  ANOA-AMGLE 

203  ANGLE -O. 3«< ANOA4ANOB) 

IF  (ABS<ANOLE-AOLO).GT.OANO>  00  TO  20* 

ANGL ( I .LCUT ) -ANGLE 
200  CONTINUE 

MLEVt-NLCW-t 
DO  210  L-I.L1 
DO  210  I-t.NLEWl 

IF  <ICHECK(I.L).E0.1.0R.ZCHECK(I*:.L>.EQ.l)  00  TO  210 
IF  <PHO( I.L) .EQ.O.O.AND.PtNK  1*1. L) .NC.O.O)  00  TO  211 
IF  < PMO (I.L) .NE .0 . O. AND . PH0< I41>L).EO.O.O>  OO  TO  212 
OO  TO  210 

21 1  ICUT-I 
WIA-VI < I ) 

VIB-Vt(I41> 

00  TO  213 

212  I CUT-141 
VIA*Vl(14l> 

WIB— WI t  J  > 

2t3  V IN-O. 3*} WI A* WIB) 

21*  VIOLD-VfM 

BETA!-  WINM24PMKJ) /OAMMA 

IFIBCTAI .LT. 0.0)  90UNDI  (ICl/T  ,L  )-2.0BC8SCAl  (  J>/SOTPI 
IF  (BETA1.LT. 0.0)  00  TO  2l7 
WARBLE!  D-BO 
WARBLE < 2 )-ANO(L) 

WARBLE ( 3 >-T< J> 

T-0.0 

CALL  0R8ITC80.KTAI .  J) 

IF  ( WARBLE <1>.OC.<BBOUND~KLTRX>>  OO  T0214 
IFC ABS( (PHI (J) -POT )/OANHA).LT. 100.0) 

1  BOON B I ( ICUT.L >-2 . OtCBSCAl ( Jl >  »EXP  < <  POT -PHI ( J) ) /OAMMA >/BOTPI 
217  VIB-VIN 
OO  TO  215 
214  VIA-VIM 

OO  TO  213 

213  WIN— O . SBC VIA4VIB) 

IF(Al«(VIH-VIOLD>.0T.DVI»(Vld41>-Vld>>>  OO  TO  21* 

WII < ICUT.L >-WIH 
210  CONTINUE 


C 

2100  CONTINUE 
C  CALCULATE  CBOCRT 
C URN IN-O. 

CURMAX— O. 

CARRIW-O. 

IF ( IFAUL  T (0) .EO.OlOO  TO  4000 

CPM-0.0 

DO  350  L-l.LI 

IF(PHO< I.L). NC.O.O. OR. PHI (J).OT. 0.0) 

1  CPH— 2.04CBBCA1 ( J) /SO TP  I 
350  CONTINUE 

WRITE  ( LUNA* *000 >  J 

AOOO  FORMAT  (/IX. tSAMPt IN#  IN  VELOCITY  SPACE  FOR  OSCATTCRO  AT  J-B. 

I  13/) 

WAITE  <LUH*»*00>  <  (PMOU.Dd-l.MLCV). L-l.LI  > 

*00  TON NAT  (BdX.IPF9.2>  > 

CALL  FIT (t 2.CAARIW.CURNIN.CU0NAX. J.CPH.PHI .M.OANNAl 
4000  CONTINUE 
*01  FORMAT (//) 

3*0  CBSCATC J)-CBBCAT( J) -CARR IV 
400  CONTINUE 

RETURN 
f  NO 

SUBROUTINE  ELPRN(M. NANG. PHI. SCCPRN.  ITER.  IKON. ONERA. SO.  J.SCCPRI  ) 
INTEGER  PERMC.SCCINB.PtRPAN.PANlNB 

CONNON  PSAWE  ( 144.10)  .CSAVE  ( 144.10)  *PKCTR(  1 44)  .C8ECTRC  144)  * 

1  OFl EC  (  20  >  .MLNAX (144)  «CNAX(  I44)*CTA(20) . BBCAT  I  (  1441  * 

7SSCAI2< 144 ) .BSCAT J( 144) >PHO( 20.40). 

I ANO I  40 ) . CPHONX ( 1 44 ) . SUNANG . ANOO . BOUNBL ( 20 . 40 ) . DOUNB I ( 20 . 40  )  * 

2  ANGL  (  20.40)  .VI I  <  20.  40)  .  (CHECK  (  20. 40)  .RAIIOI 1 3)  »  I  ROOK  1 44  )  r 
3 IFAUL T( | 4 > . JLOCAL < 1 44) . ICON! 1 44 ) * 

1 VI ( 20) »FV(R) .NLCV.NT INES. ILC © » T ININ4 20) . I INAX( JO*  # VINUNC 20) . 

2A( 144  > .B( 1 44 ) *C( 144) . BBC  144) *SW( 144) • IW( 144) .DNC 144) » 

3FW( I  44 ) » T WOC OS ( 700 » » 

1 1Fl  O.NPOINT.N.  IOC  ON.  ISTN.IPOI3.NKCI.NPCRO0.NPCROD.  IBINT* 

20ANNA.  BVB*  (  70. 4G)  .PVBY  (  70. 4G»  .  T(  1  44 )  .  DEL  TAX.  ML  TAT  * 

J YS( **• 4G  >  » IS*  A*  *  »  XSS( 70) . 

IVARSIf  (4).  T.BCl  T.SBOUNO.NDIN.POT.M.  JI.RPI  .RPI2.RPIHAF.MTP  I* 
7SAT.  TCNPf  I  •  ICNPf  2.KNI  I  .(lfNE2.MNII.MWI2.  TENPI I  .Tf  NPI2. 

ItruM.I  M1.I  «•**.»  IMN.I  MNO  .(  IM  M  IDKA. 


I  lOTLt  144).  .IV II  (1441  .PERSIC (  1  44  >  »SECIN1*<  1  44  »  »  IP  AML  1  <  144»  • 

2Pf RP AN < 144.4) .PAN I ND  (  1 44 ) . 

1C  ION  <  144)  .L'ELECC  144)  *CSCC  <144)  .  CSEC  1(1 44)  .CPMUt  D<  144). 

2CPH0T  1(144)  .  LDSCAl  ( 1 44  >  .CBSCA1  ( 144 )  .  St CPNN (  1  44  >  .  S*L'4‘N  I  i  144  i  . 
3PMI ( 144) »COUN( 144). 

1AASE. JONL. DPH I .NANG. RAD. PBOUND. ONEGA. ALPHA. SO* Jp, IS. ECS. 

2E XPW 12(20 (  »EF  I VI (20) . ICRROR.TE THIN. TE1MAX .BE  T A1 . >i 1 AZ • Jit  SS . 
3l2.CARRIV.lPH.XI.CSCCEL.CSECC1.CS.CB.C9I.CBI 
CIMllimtlitlliltHMIUMimilllfMHimiMIIMMIIMlIMM 
C  I HI S  SUBROUTINE  CALCULATES  THE  SECONDARY  CURRENT  SCCPRN 
C  SfCPRN  CONSISTS  OF  TWO  PARTS! SCCPRN .NAIN  SECONDARY  CURRENT 
C  LEAVING  A  LOCATION. AND  CARRIV* SECONDARY 

C  CURRENT  ARRIVING  AT  A  LOCATION  FROM  OTHER  PORTIONS  OF  THE  CRAFT 
C  PHI  IS  POTENTIAL  ON  SPACECRAFT  SURFACE 
C  N  IS  NUMBER  Of  GRID  POINTS  ON  SPACECRAFT  SURFACE 
C  NANG  IS  NUMBER  OF  INTERVALS  THAT  HALF -ANGLE  (RPI/2)  GRID  FOR 
C  SECONDARY S  IS  DIVIDED  INTO.  HANG  SHOULD  BE  ODD  SO  I  HA  I  IHfRE  IS 

C  A  GRID  POINT  FOR  RPI/2 
C  NLEV  IS  NUMBER  OF  VELOCITY  LEVELS  USED 
C  PHO  IS  ACTUAL  CONTRIBUTION  AT  EACH  POINT 

C  ANG  IS  LOCATION  OF  EACH  GRID  POINT.  NOTE  THAT  ANG  AND  PHO  ARE 
C  NLEV  X  NANO  MATRICES. 

CllllllltlimiMtlimillllMtllHiMIlMIUIIIIItMMimMlMt 


DATA  DANG/0.1/ 

DATA  FAC/1 .O/.DVl/O. 017/ 

DATA  KL/O/ 

GAMMA-RAT  10d3> 

D F L ANG • . 3 • RP I / F L 0 A T < NANO - 1 ) 

L I "2*NANG- 1 
L2-LI-1 
NDIM— 3 

C  GENERATE  COEFFICIENTS  PHOd.L)  AND  ANG<  L  >  FOR  UK  IN  CALCULATING 
C  SECONDARY  CURRENT  DUE  TO  SCCONDARVS  ARRIVING  FRON  OTHER 
C  PORTIONS  OF  THE  SPACECRAFT 
IOML-1 

DO  300  I-l.NLEV 
DO  HO  L-1.V1 
IF(RL.EO.O)  I CHECK! I .L  > -1 
IF(KL.EO.I)  I CHECK  < I .L ) -0 
PHO(I.L) -0.0 
IF < IOML . EG . 0 )  GO  10  190 
ANO(L >-DELANG«FLOAT(L-l > 

BE TAl-VI ( I VBB24PH1 ( J) /GAMMA 
IF<»CTA1.LT.0.0>  GO  TO  ISO 
VANDLECD-S© 

WARBLE ( 2) -ANG(L) 

WARBLE (3)-Y( J) 

C0SA-CO9 ( AMO < L ) ) 

DBS TA— COSABDVDX (1 . J) / ( 2.04V I ( I ) BB2SOAMMA  >  4C0SA 
IFCL.EQ.l. AND. DBETA.LT. 0.0)  00  TO  180 
IF<L .EO.L 1 .AND. DDE TA.GI.O.O)  00  TO  180 
T-0. 

CALL  ORBIT(SO.KTAl.J) 

IF ( WARBLE ( 1 > .GE. (SBOUND-DCLTAX) >00  TO  190 
IF  ( AB8( (POT-PHI ( J) )/RAT10( I3)).LT.100.) 

1  PMO( I .L  >-2. ©BSECPR1 (Jt >*EXP( (POT-PHI ( J) I /RAT I0( IJ>)/ 

3  BOTPI 

IF  (PHOd.L).EO.O.O)  I  CHECK  (I  .L  >-t 
GO  TO  190 

180  PHO( I . L ) -2 . ©4SECPR 1 ( J > /BOTPI 
190  CONTINUE 
I0ML-0 

DO  300  L-l.LI 

I F  (  PHO  (I.L). NE  .0.0)  lOML-IOHLd 
300  CONTINUE 

C 

c 

DO  1*7  L— 1 .LI 
DO  197  1-l.NLEV 
BOUNDL  d.L) -PHO  (I.L) 

BOUND! (I.L !-PHO( I.L) 

VIId.L)-VI(I) 

ANOLd.L)-ANO(L) 


197  CONTINUE 


C 

C 

C 

c 


IF(KL.EO.O)  00  TO  2100 
DO  200  I-l.NLEV 
DO  200  L-1.L2 

IF  ( (CHECK ( I»L  > .EG. 1 .OR. (CHECK ( 1.141) .CO. I >  OO  TO  200 
IF  (PHOd.L). EO. 0.0. AND. PH0CI.LF1). NC.O.O)  00  TO  201 
IF  (PHOd.L). NC.O.O. ANO. PHOd.LM). CO. 0.0)  00  TO  202 
90  TO  200 
201  LCTJT-L 


AM*B-AN8(L4I ) 
80  TO  201 
202  LCUT-Ld 

AM0A*AN8(L41 ) 


203 

20* 


204 

205 

207 

200 


AN98-MNML) 

ANSLC-O . 58 ( AM0A4AM0B ) 

A0L9  AMBLE 
WARBLE  d >-80 
WARBLE  (  2  > -ANGLE 
VARBLCd  >-Y(  J) 

T-O.O 

KTA1-VI  (  |  )BVI  (  I  >  4PM I  ( J  > /OAMMA 

IF(KTAl.LT.O.O)  BOUNOL d. LCUT )-2.0BKCPRI(J> /BOTPI 
trCKTAI.LT. 0.0)  90  TO  207 
CALL  09BIYC00.KTAI.J) 

IP  (WARBLE  d  )  .  OE  .  (  SOOUNO-KL  TAX  >  I  80  TO  204 

80UNK  (  I  .  LCUT  ) -2 . 0BKCP9 1  (  Jl  )  K  XP  (  (  PO  X  -PH  I  (  J  )  )  /OAMMA  > /M  TP  I 
OO  TO  205 

ANSLE-0. 34  <  AMOA4AMBB ) 

IF  ( A80 ( ANGLE -AOLB) .OT. DAMO)  00  TO  20* 

AN9L (I .LCUT )-ANOLC 
CONTINUE 


NLEV! -NLEV- I 
DO  210  L-l.LI 
80  210  I- I .NLEV! 

IF  < (CHECK (I.L) .CQ. 1.09. ICHCCK ( 1* I .L ) .CO. I )  80  TO  210 
IF  (PHOd.L). EO.O.O.ANft.PHOdtl.O.M. 0.0)  00  TO  211 
IF  (PMO( I .L  > .Mf . 0.0. AN0.PH0( Ill'll .CO. 0.0)  80  TO  212 
80  TO  710 

711  ICUT-I 
VIA-VId) 

VI8-VI  (141) 

00  TO  213 

712  ICUI-I4I 

wiA-vnm ) 

VIB-VId) 

213  VIM-O. SBCVIA4VIB) 

?t«  VIOLB-VIM 

KTAI*  VI  MSB  74PM I  (  J  ) /OAMMA 

ircKTAI  .l»  .0.0)  BOUNBI  (ICUT.L  )-2.0*KCPR|(J)/SOIPI 
1F(BFTAI .(  T.O.O)  GO  TO  717 
IM4«  »M  l-RA 


i 


C13 


VAPfH  f <  2>*ANGiL  > 

GARBLE  (  31-Y4  J) 

T-rt.O 

CW.I  ORB  l 1  <  BO*  PC  f  At , J  > 

IF  <  GARBLE  l  1  >  . GE  .  <  Sf»OUNP-DEL  TAX  >  >  GO  1021  4 
GIB-Gl« 

SFCP-4 1 .0  WEIGHT >«SECPR1 C Ji > » WE IDHTFSECPRI ( J2> 

BOUND  I  (  ICUT  »L  ) »2 . OFSECPFEXP  <  (  POT -PH  I  I  J>  I /GANNA) /SOI  P  I 
GO  TO  213 
214  GIA-VIM 

GO  TO  215 

213  VIM-O. 3«<VlAEGIB> 

IF ( ABS( VlH-VIOtD > .GT . DVIltVI < I *1 > -VI ( I ) > )  GO  TO  214 
2» t  Milt ICIIT.L  )-VIN 
210  CONTINUE 


2 1 00  CONTINUE 
C 

C  CALCULATE  SECPRN 
CURMIN-O. 

CURMAX-O. 

CMPIV«0. 

IF4 IFAULT(G) .|0.0>GO  TO  4000 

CPH-0.0 

DO  330  l-l.Ll 

IF  <  PNO< 1  «L  >  . NC • 0 ■ 0 • ON • PHI ( J  > • GT .0.0) 

i  cpH-?.o*sccPfti<j>/sarp! 

330  CONTINUE 

WRITE  <  L UNO >4000 >  J 

4000  FOR NAT  < 1 X . 4SAMPL I NO  IN  VELOCITY  SPACE  FOR  ELEC  INDUCED  AT  J-B, 
l  13/  ) 

WRITE  4  LUMA. 600 >  < ( PMO< I ,L > » 1-1 »MLCV> ,L-1 »L 1 » 

600  FORMAT  <8( IX. 1PCY. 2> > 

CALL  FIT(L2.CAR*IV.CU«MIM,CURHAX. J.CPH.PMI .N. GAMMA) 

4000  CONTINUE 

140  SCCPRM4 J> -SECPRN < J) -CARR IV 
400  CONTINUE 
RETURN 
END 

SUBROUTINE  GUN 


C  PURPOSE  I  TO  COMPUTE  THE  CURRENT  DUE  TO  THE  EMISSION  OF  A  GUN 
CHiiiuiiiiiiHiiMimiiiimimiMiiiiiimitiMitMiMtiuiiMi 

CONMON/COUR/CION< 144)  >CELEC( 1 44 > . CSEC ( 1 44 > . CSEC l < 144) ,CHOTO( 144) 

1  .CPM0T1 1144) .C»SCAT< 1 44 ) .CBSCAI 4 1 44 ) » SECPRNt 144) . SCCPRI 1 144 ) t 

2  PH 1(1 44 ) * COUNI  144) 

RETURN 

END 

SUBROUTINE  FIT <L2.CARR1V.CURMIM,CURMAX , J.PHOO.PHI *N* GANNA ) 
CIIIMtllHItMUtlllllMIIIIIIIIIIIIIIMIMIIIIIIIIIIIIIIMIIM 

C  THIS  SUBROUTINE  CALCULATES  SECONOART  CURRENT  FROM  OTHER  POINTS. 

C  IT  IS  USED  IN  THE  COMPUTATION  OF  PHOTOCLCC TROMS , SECONDARIES .AMD 
C  BACK SC A T TEAS  ELECTRONS. 

C 


C  TO  COMPUTE  THE  CURRENT  DENSITY-BUM  OVER  I < VELOCITY)  AND  SUN  OVER  L 
C  (AMBLE)  OF  <  AEB4AMQL  E  EC4VCL0C I T Y4D4AM0LE4VCL0C ITT)BEXP< -VCLOCI TT4B2 ) • 

C  ( VCLOC I TT4B2  >  BS I  NT  ANGLE  )  •#(  ANOLE )  4B<  VELOCITY  ) 

C  TACK INO  INTO  ACCOUNT  THE  FACT  TM AT  FOR  CERTAIN  INCIDENT  E HEROICS 
C  AMO  CERTAIN  DIRECTION*,  ELECTRON  ORBITS  00  CONNECT  BACK  TO  THE  AMBIENT 
C  PLASMA. 

C  DESCRIPTION  OF  THE  VARIABLES 

C  CARRIVi TOTAL  ARRIVING  SECONOART  CURRENT  AT  A  OIVEN  BRIO  POINT 

C  CURCNT I  ARRIVING  CURRENT  FOR  ONE  E1ENEMTARY  CELL  IN  VENOCITY  SPACE 

C  PHOH.UI  WCIOMTINO  FACTORS  IN  CURRENT  INTEGRATION 

C  A.B.C.GI  COEFFICIENTS  IN  BILINEAR  INTERPOLATION 

C  ANSI  SAMPL1MB  ANOLE  IN  VELOCITY  SPACE. ANGLES  ARC  SANPLCB  FROM  0  T 

C  ZERO  TO  PI 

C  VII  BAMPLINO  IN  KINETIC  VELOCITY 

C  ML LV I  NUMBER  OF  E ME ROT  LEVELS  USES  IN  THE  COMPUTATION 

C  L 21  NUMBER  OF  AMBLES  IN  VELOCITY  SPACE  USED  IN  THE  COMPUTATION 


C 


INTEGER  PCRSCC* SEC INS. PERPAM 'PANINS 

COMMON  PBAVE< 144, I©) »C8AV®4 1 44* 10) .PSCCTRI 144  >, CSEC TR( 144)* 

I DELCC ( 20 ) » BCLMAX 1 1 44 > » ENAX 1 1 44 ) ,*TA( 20) • BBC AT 1 1 144 ) • 

2DSCAT21 144 » .B8CAT34 144) »PNO< 20,40 )  . 

I  ANSI  40 » , CPHOMX 1 1 44 ) , BUNAMO, ANOO* BOUNBL ( 20, 40 ) , BOUND! 1 20, 40 ) , 
2AN0L I 20, 40 ) , VI 1 1  20, 40 ) , I CHECK  1 20, 40 ) ,RAT !0< 13 ) , I ROOT < 144 ) * 
1IFAUL  T ( 14  > , JLOCAL ( 144  > . ICON* 144 ) . 

IVIl2©>.fV40>.ML*V»MYINE0.ILCV.TIHIN420>»TINAX(20>.VINUNI2©># 

?A(|44>.D4l44>.C4144)'00(t44>.DMil44>.TUII44>'OU(l44>* 

3CW(144>,TM0C00(7©0), 

1 |FLO,NPQINT,N* I DCOM. ISYH. IPOIB.NBCCT , NPE ROD, MPE ROD, I DINY , 
7SAMMA. RV8X4 70,4B> .DU0Y4 70, 4«> ,V< 144) , DEL TAX, PELTRY, 

JTS< *4, 4fl ) * XB< 44) » XSSI  70) , 

I VARSt E 1 4 ) , T , BEL T . BBOUMB , N» IN , POT , M , Jl , RP I , RPI 2 , RP IMAF . BOTP I . 
2SAT , TENPE I . TCNPC2 , BENE 1 , DCMfr , BEN 1 1 » BENI 2 » TENP 1 1  *  TEMPI 2 , 

3  TEMPR  ,  L  UM3  ,  L  UN4  ,  LUMS  ,  LUM4  ,  LUN7  ,  LUMO  •LUMP  •  LUNIO  , 

1 1 STL 4  144) , JBTL 1 1 44) ,PCRSECC 144) .0CCIMD4 144 ) , I PANEL  < 144 ) • 
2PERPAMI 144.4) .PAMIHOI 144), 

ICIONI 144) ,CCLCC< 144), CSEC I 144) 'COCCI I I44)'CPN0T04 144) , 

2CPM0T 1 1 1 44  )  ,  COSCAT  <  1 44 )  ,  CDSCA I II 44  )  ,  SCCPRMU  44  )  *  SCCPR I  I  1 44  )  . 
3PMI (144) , COUNI  144) r 

IKAtf  ,JOHL, DPMI , MANS. RAO, POOUNB,ONEOA, ALPHA, SO, JP. If, CCS, 

2t XPVI2I20) .CFTVI 120) , I ERROR, TETMIM, TETMAX.BETA1 ,BETA2, JLCSS, 
3L2,CMMI1V,CPH.X1,CSCCEL,CSCCF1,CS,CB,CS1,CB1 

ORTA  XSTCP/S/ 


00  3*0  ,NLEV 

00  340  L-1.L2 

IF  < I »0T . t >00  TO  320 

1FIPHH  Jl/OAMMA.LT  .0.0)  00  TO  340 

IF (PMO< I ,L ) .EO.O.O.AMO.PMOI I  .LEI ) .CO. 0.0)  00  TO  340 

DC NON-U! 41 ) a I AMOIL ) -AMOIL E 1 ) ) 


A-PMOO 

0-0.0 

C-4PN041,L41)«AN0<  L  )-PMO(  I  *L  )  4AM04  L»»  >EPM088(AM0<  L4I>- 

1  AMO 4  L  )  >  ) /DEMON 
0- 4 PN04  I  .1  ) -PN04  I  •  L  ♦  1  )  )  /DEMON 

MPR I ME - 4 AEOSAM0 4 L  )  ) SCOO 4 AMO I L ) ) - 4 A400AM0 4 L ♦ 1 1 ) B 
I  COS4 AM04LF1 ) ) 40*4 SIN4 AM04L# I ) ) -BIN< AM04L  > ) ) 

CURE  NT-NPRINf B4 -0.34VII 1 >#f*PVI2( 1)40. 2SBBOTPIBEFT4 I ) > 
UPRIHC-O.SB4 1 ■ 0-t XPVI24 1)4(1 .OEVI 4  I )BB2 ) > 

CURENT-CURENT ♦UPRINEB4CB4COB4 AM04L ) ) -C084  AN04LE 1 ) ) ) E 0*4 AMOIL >B 
I  C0S«AMI4L> I-AM04L4I ) FC0S4 AM04LE I ) >E01N4AMOILE I ) ) -SIM4 AM04L > )>) 
CARRIV-CARR I V4CURCNT 


00  TO  340 

C 

3 CONTINUE 

BE f A-VI 4  I -  I  I BS2EPM! 4  J) /OAMNA 
IF(BETA.LT.O.O)  00  TO  340 
DEMON— 4  AMO CL ) -AN04L ♦! ))B4M|4*)-VlfI-l)) 
(F4PN04 |-| .LEI I .EO.O. . ANB. PHO( I,L4I > .*0.0. 
I  . AN0.PMQ4 I ,L ) .EO.O. )  00  TO  340 

r 

r  CASE  | 

rr  rMMM.i  tn  rfl.A.A  . *wn . puru  i  - 1  .i  *  i  » .  mf 


.  AN0.PNO4  1*1  »L  I  . EB.  i 


1  ME .0.0. AND. FHO< I ,L ) .« .0.0. AND. ICMCCK ( 1 ,L ♦ 1 ) . t U . O » 

2  GO  TO  400 
C 

f  CASE  2 

IF  (  PHO  (  1*14  1)  .1  0.0.0.  AND.  FH04  1. 1  >  .  I  0.0. 0  .  AND. PHO <  M.U.NE.O.O. 

1  AND • PHO( l-l ,L4I > .NT .0.0. AND. 1CHCCK4 I,L«1 ) .EO.O. AND. 

2  I CHECK (I.L).EO.O.O)  GO  TO  410 
C 

C  CASE  3 

IF  (PHO< 1.1*1) . C  0.0 . 0. AND. PHO 4  I *L ) .CO. 0.0 • AND. PHO< I-l.LEl > .CO. 0.0 
1 .AND. PHO 4 1-1 ,L ) . ME .0 . 0< AMD. I CHECK ( I  ,LE 1 > .EO.O . AND . 

2  ICHCCK < I ,L ) • EO . O. AND > 1 CHECK (I-l.LEl). EO.O )  GO  TO  420 

C 

C  CASE  4 

IE  (PMO< I.LE1 > .E0.0.0.ANB.PN04I,L ) .EO.O.O. AND. PHO < I - 1 ,L*I » .NC.O.O. 

1  AND . PHO< (-1,0 . EO .0. 0. AND . I CHECK  4 I  .L* l ).E0.0. AND. 

2  I  CHECK (  |,|  ), EO. 0. AND. I CHECK  <1-1, L). EO.O)  GO  TO  430 

C 

C  CASE  5 

IF  ( PHO ( I  «  L  E 1 > . NC.O.O. AND. PHG< I ,L ) .CO . 0. 0. AND. PHO ( l - 1 ,LE 1 ) . NC . 0 . 0 . 

1  AND.PHOi 1-1, L). NC.O.O. AMD. ICHCCK(I,L>. EO.O)  GO  TO 

2  440 

C 

C  CASE  4 

IF  ( PHO 4 I, LEI). CO. 0.0. AMP .PHO 4 1-1.141 ) .EO. 0. 0 . AND. PMO< I ,L ). NC.O.O. 

1  AND. PHO ( 1-1 ,L ) .HE. 0.0. AND. ICHECK ( I ,L E 1 ) . EO.O . AND. 

2  1CHCCK4I-1, LED. EO.O)  GO  TO  430 

C 

C  CASE  7 

IF  (PMO< I, LEI > .ME .0. O. AND.PH04 I  - 1  ,LEl > . N* .0 . 0. AND . PM04 I, L). EO.O.O. 

1  AND • PHO  < f-l»L) .EO.O. AND. I CHECK < I. L) .EO.O. ANO. 

2  ICMCCK  < I-| .L> .EO.O)  GO  TO  460 


IF  <PH04 I -1 ,L ) . NC.O.O. AND. PH04 I-l ,1*1 ) . NC . 0 . 0 . AND . PHO ( J . L > . 

1  NE. 0.0. AMD. PHO(  t, LED  .NC.O.O)  GO  10  Pttt 
GO  TO  340 

C  START  COMPUTATION  FOR  THE  REGULAR  CASE 
7477  A-4PH04I.L )*ANQ<  LE 1 ) BVl 4  I - 1 ) -PH04 I - 1 »L ) BAN04  L E 1 ) 4VI < I ) -PHO ( I . 

1 L  E  I  )  (ANO  (  L  >  4V I  4  I  -  D  4PM0  (  I  -  1  ,LE  1  )FANG<  L  )  BVI  4  I  >  ) /DEMON 
B-4VI4  I  )•  <  PHO<  I  -  1  ,L  )  -PE404  I  - 1  ,LE  I  )  >-V!  C  I  -  1  )  S  4PHO<  I  »L  )  -PHO<  I  »L  ♦  l  >  >  » 
1/DE  NON 

C-(AMG<  L  >  B  4  PHO 4 1 ,LEI > -PHO 4 I-l, LEI) ) -ANB 4  LEI >B 4 PN04 I ,L ) -PM04 
I I~l ,L ) ) ) /DEMON 

D-(PHO< I .L  >-PHO( I-l ,L >-PH04 I .LEI )EPH04 I-l, LEI ) > /DEMON 
WP» l ME • 4 AED t ANO 4 L > > 4C08 4 ANO 4 L > ) - 4 AE DFAMO 4 L E 1 ) ) B 
1  COS4ANG4LEI ) >EBB4SIM4AM04LEI > >-SIN(ANB(L ) >) 

CURCNT-MPRIMCB4  0. SB4  VI 4  1-1 >BEXPVI24 I-l )-VI 4 1 )SCXPVI2l I > > 

1  EO . 23B80TPI • (CFTVI 4 1 >-£FT 4 I-l ) >  > 

UPR1HE-0.3S4CXPVI24 I -1 )•< 1 . OEVI 41-1) SB2) -CXPVI24 I ) B4 1 .©E 
I  VI 4  I >SS2) > 

C  UREN  T  -  CURE  N  T  E4JPR I  NC  B  4  CB  4  COS  4  ANO  4  L  >  >  -COS  4  ANO  4  L  E 1  >  >  I  EBB  4  ANO  4  L  BCOS  ( 
1  ANO  < L ) ) -ANQ4LE1 >4COS4 AMG4LEI ) )E8IN4 AN04  LEI ) ) -SIN4 AN04L  > ) I ) 

C ARR I V-C ARR I VECURCNT 
GO  TO  340 
C 

C  START  COMPUTATIONS  FOR  THE  NONRCOULAR  CASE 

C 

c - CASE  NB  1 - 

400  CONTINUE 

PA- BOUND I  4 1 ,LE1 > 

PB-BOUNDL 4 1 ,LE1 > 

PD-  4  PE404  I -I  ,LE  1  ) -PHO 4  I-l  ,L  >  > / 4  AN04 L  EJ  ) -AN04 L  )  > B 
1  4  AM0L4 I .LEI >-AM04L ) )EPNO< I-l ,L ) 

C 

c  REGION  I 

C - -  .....  ... 


01-<PB-PD-PHO< I , L  JEPWQ4 1-l»L)>/4  4 ANOL ( I ,LE1 )-ANO<L ) )F<V!4I>- 
I  VI4I-I))) 

Cl - ( ANOL 4  I .LE I ) B 4PN04 I , L > -PH04 I-I , L > ) -AN04 L ) B4PB-P07 >/ 

1  <<ANOL<I.LE!>-ANB<L)>44VI4I>-VI<I-I>>> 

B1«<PB-PH04 I,L) )/4ANOL4 I ,LEI 1-ANB4L) ) -01 BVI 4  I ) 

AI-PB-B18ANOL4 I ,LEl )-ClSVl C I >-DltAMQL 4  I ,LE1 >BVI ( I ) 


C 

C  REGION  2 

C - 


C 

c 


c 


c 


VA-VI I  4  I »LE1 ) 

ANOB-ANOL4 I, LEI ) 

02-4 (PB-PD )• (VA-VI < I-l ) )- (PA-PH04 1-1, LEI) >t< VI < I )-VI 4I-1)))/ 

I  4  4 VA-VI (!-l))S!VI(I )-VI ( I-l >  >B4ANBB -AM04LE1 ) )  ) 

C2— ( 4PB-PD >BANO< LEI > 84 VA-VI 41-1) )-< PA-PE404 I-1,LE1>) SAMOOS 4 VI 4  I ) 
1  VI4I-|)))/4<VA-VI4I-D)B<VI4I)-VI4I-1))B(AN04LE1)  ANOO)  ) 
B2-4PB— PE404  I-l  »LEI  )  )/ 4  AMDS -AMS (LEI  >  ) -D2SVI  41-1) 

A2-PN04  I-l  .LEI ) -D2SAM04LE1  >-C2BVIU-l  I-02BVI  <  I- 1  )BAN04LE1 ) 


MPRINE-4AlE0IBAN04L)>BCOS<AN04L))-4AIE01BANO0)BCOG4ANBB)E 
I  01S4SIN<AN8B)-SIN4ANO(L>>) 

CURCNT-MPR I NEB ( -0 , SB 4 VI < I - 1 ) SCXPVI 2 1 1 - 1 ) -V I C I > 8CXPV 1 2 4  I ) 

1 ) EO .3RSOTPIB (CFTVI 4  I )-£FT< I-l > ) ) 

UPRINE-0 . SB 4 EXPVI24 I - 1 ) B 4  I . OEVI 4 I-l ) BB2 ) -CXPVI24 I  ) B 
I  4 1. OEVI 41)882)) 

CURE  NT  -CURCMTEUPRINCS  (CIS  (COG(ANO(L  >  ) -COS4  ANOO)  )EDIB  (  AMO<L  >  BCOB4  AM 

1  OIL ) > 

2  AWOOBCOS4 ANOO) EB INI ANOO) -0IN4AN04L ) ) ) ) 

STEP-4 AW04LE I)  ANBB > /FLOAT (KBTEP ) 

STEPA-ANOB 

BTEPC-4V1 lit, LEI) -V 1(1) ) /FLOAT (KBTEP) 

•TEPO-VKI) 


DO  401  K-I.KOTEP 
STCPO-STEPAEBTEP 

MPR INI- 4 A2E02BBTCPA > BCOO  ( 0 TIPA > - 1 A2E02B0 TEPO ) BCOS ( S TEPB ) ♦ 

I  SOS <SIN< STEPS) -SIN4STEPA)) 

CUNCNT-CUNCNTEMPRINEt<0.S4(V!(  I-DBCXPVI24  I- 1 ) -BTCPB4EXP4 -8TE 
1SB2) >  ♦O.TSBOOTPIBICrTlOTEPO) -CFT4 I-l > > > 

UfRINE-O.St (CKPVI2( I-l )B4I .OEVI4 I-l >BB2)-CXPI-0TCP0BB2)B 
I  1 1 .OESTCPOS82  >  > 

CUNENT-CUNCNTEUPRtNC4(C2BICOS(STCPA)-COS< TSCPO) )E 
I  S2B4STEPABCOOI BTCPA)-STEPBBCOS( STEPS) ESINI STEPS ) -SINI STEPA) >> 


orrpo-s  TCPOESTCPC 

STEPA— STEPS 
401  CONTINUE 

CARPI  V— CARR I VECURCNT 
CUR I -CURE NT 

SOI  FOR  NATO  CURIO.  3 13,  1  PC  10. 3) 


MRITCIO.OOl)  J.I.L.CURI 


GO  TO  340 
- CARE  MB  2 - 

41#  B— I 4B0UNBI 1 1 ,L  El ) -PHOI t-I,LEl))B(VIII I »L ) -VI 4 1-1 ))-4VI|4 I, LEI )- 
I  Vlll-IDO  ( BOUND  1 1 1  ,L  )  -PN04  I  - 1  ,L  )  )  >  /  4  AM04L  )B(VI(  |-l  )-VIl(I,L)  )• 

I  4  VI I  4  1,1  ED-VI 4 1-|  )  )EAMO<LEI  )BI  VI I  4  I  .LEI  ) -VI 4 1  - 1 )  )S(  V|  1 1 1  »L  >- 
I  VI  (l-ID) 

C-l SOUND I  4  I »L )-PNOI I -I ,L )EOBAMO(L  >8(V!4I-I )-VI t(I,L))>/(V||(|,LI 
I  VKI-III 

0-4PH04 I-l ,L ) -PN04 I-| ,LE I )-OBVI I I-l >4( AM04L )-AM04LEI ) ) >/( A4N)(L )- 
I  AN04LEI ) I 

A-PNO( I  - I ,L E I ) -00AM04LE I > -CBVI 4  I - 1 ) -0BAN04LE I )BVI 4  I -1  I 
rUPTMT-0.0 

•  TFP>,*«n«l  41  t-MMWI  I  »  «ri  IWHMTr4l 


CIS 


l  t  SAVF  *  144. |0 • . CSAVF  <144. lO) .PSEC  IR* 1441 .CSEC  Tk< 144  >  . 

IDCl FF  <  '0 l .Df l HAx  < |44 ) .EHAxt 144) ,C  TA( 20  > .BSC At  1  i  144)  . 

P~il  A I  J  l  1  4  4  I  .  hSCAI  Jl  |44).FHU<20>40>  . 

1AN1.1  40  144  1  ,  SUNANG  .  AMGU  .  POUND!  i  CO  •  40  J  •  BOUND  I (  20.40)  . 

‘ANIit  <  20. 40 ) .VJ . «  20.40  > .  1(  HELM  20.40  )  . RAT  1 0 « 1 J > .  [ROOT  <  144  »  . 

J 1FAUL T  <  1 4  >  • JL  UC  AL  <  144).  I  COW  I  1441 . 

I  VI  <  CO  *  .NltV.Nf  lAtS,  UtV.T|nIH<  ?0>.IIMAK<  CO)  .VINUMt  JO)  . 

,  A<  144*  .8.  144  >  .»  i  144  i  .  hP<  144)  .»W<  144*.  IU1  144  )  .  Owl  l  44  »  . 

IFUt  144) .TWO! US'  700  >• 

t  IFt  (>.MF-niNr.A.IGFOn.ISrn.  IF01S.NSEC  T  .  MfEROti  .rtf  CROP.  IPIHY  . 
:uAHHA.  PVDX<  7o.48  I  .DVDYt  70  •  48  )  •  V(  144)  . PE l T AX , Df L  T A Y  . 
3»S'**.48>.«S« Aft) .  xSS« 70  >• 

1 VAKDlF  <  4  »  .  T  •  MLT.SBOUNCi.NDIH.POT.H.  Jl  .RP1  .RP1  2  .RP I NAF  .  SOIP  I  . 
-'SAV  •  f  CHPf  I  .  IF  WE  J.  PE  HE  !•(•€  NE2.  DENI  I  .  DENI  2  >  TEMP  M  .  TEMPI  J. 
iffcHPR.LUNJ.l  UN4.1 UN5 .LUNA .LUN7 .LUN8. LUM9.CUN1 0. 

I  I  DTI  <1441.  IHIL i  1 44  > ,f EkSfcO  144) . SEC  I  NO < 144) . 1  PANEL  < 144). 
2PERPAM'  144. 4  <  > PAN  1 ND <  144) . 

1CI0N) 144) .CEL EC  I  1 44 ) .CSEC < 144 ) .CSEC 1 < 144) .CPMOTO< 144) . 
J''PHOr»<  144  >  •  C  BSC  A  T  <  1 44  >  .CBSCA1  <  1 44 )  .  SECPftN  (  144)  .SECPRt <  144). 
TPM I  I 144).C0UM« 144). 

tRASF.  JOML  .DPMI  •  NANG  .  PAD  •  F  BOUND  •  OMEGA  <  ALPHA  .  SO .  JP  •  IS* CCS. 

JE  XPV  I2<20)»£FTVI<  JO ) . IERROR. TETMIN. TFTHAX.8ETA1 . BE  TA2. JLESS . 
Jl  Z.rAPPIV.CPM.Xt  .CSC  CEt.CSECEl.es.  CB.CS1.  CM 
DATA  DCCMlM.ACCMlN/18. # 1 .£-2/ 


VAR  B1  L  <  .*  >  =V£  t  4S I N  l  ICIMED* 

VARDLE < J)*lt J) 

WAP  DU  I  4  i  »•  VtL  4(  OS<  IE  1MEP) 

T®0.0 

PEL 1-M 

CALL  ORBI  KSO.DE  TAl  .  J) 

(Ft  VAR  Pi  E  <  |  i  lit  .  I  SPOUMD-DtL  TAX  >  )  00  TO  3002 
ViOl  CONTINUE 
Jtf  SS-2 
PC  TURN 

r 

5002  TETMIN- ffTMf P-PPI/PELUN 
TETHGH-JE  I  MID 
TETlON-TFTMCD 
GO  TO  3000 
C 

END 

•CNA<  8LM  »0> 

SUBROUTINE  UK  B I T  <  SO , BE  T  A I , J  > 

C  FOR  HOKE  EFFICIENT  SCHEME  SEE  DURDEN  * 


c  purpose: 

C  TO  COMPUTE  ORDITS  NUMERICALLY  US1M0  RUNOE-KUTTA  TECHNIQUES 


1 60  JLESS-0 
JJJJ-0 
KfcKK-0 
LLLL-O 
TIOLD-TETMIN 
TJOLD-TETMAX 
WEt "SORT < BET A2) 

C 

c 

c 

C  CALCULATE  THE  ANGLES  HERO  AMD  PIE  AND  RPlHAf 
C  ANGLE  ZERO 

TETMIN-O. 

TCTMAX-RPI 
Tl TMED-RPIMAF 
C 

DDE  TA--DUDX  < 1 . J ) / <  2 . OtDE  TA24GAMMA ) ♦ 1 .0 

IFiDDETA.LT. 0.0)  GO  TO  lOOO 

VAR RLE ( 1 >*S0 

VARBLC<2)-0.0 

WAR»LE<3>-r< J» 

VARDLE«4>— WEL 
T-0. 

DCLT-M 

CALL  ORD I T <  SO. DE  TAl . J) 

501  F ORMAT  < I X . 3F 13.5*214. 3F 13. S> 

IF (VARDLE4 1 ) . GE . < SROOND- DEL  TAX ) MCKKK-I 
C 
C 

c 

C  ANGLE  PIE 
lOOO  WARBLE < 1 > "SO 
VARDLE<2>-0. 

WARDLE  <3>"Y(J> 

VARDLE  <  4 ) *4WEL 
T-0. 

DCLT-M 

P  BE  T  A*  DVDX  < I . J)/<2.0SBETA2t0AMHA)-l .0 
IF <  DDETA . GT .0.0)  GO  TO  2000 
CALL  ORD I T  <  SO . DC T  A 1  .  J ) 

IF (VARDLE  < 1 ) . GE . ( S BOUND- DEL TAX ) > JJJJ-1 
C  IF  PARTICLE  ESCAPES  AT  DOTH  ZERO  AMD  PIC.  RETURN  TO  ION 
IFIJJJJ.CQ.l . AND. KKKK.EO.l) RETURN 

C 

C 

C  ANGLE  RPI/2 

C 

C 

2000  VARDLE  < 1 > -SO 
VARDLE < 2 >-WCL 
VARBLC<3)-Y( J) 

VARDLE  <41-0.0 
T-0. 

DCLT-M 

CALL  ODD JT (SO. DC TAl » Jl 

IF  <  VARDLE < 1 1 . OC . < SDOUND-DCL TAX  1 1LLLL-1 
IF< LLLL.NC.il  GO  TO  3000 
TETMOM-RPIHAP 
TETLON-RPIHAP 

C 

C  PARTICLE  ESCAPES  AT  RPINAP 
C  FIND  MINIMUM  ANGLE  TETHIN  DV  DISSECTION 

C 

IP (KKKK .EG. 1 1  GO  TO  4000 

C 

3000  TCTNCD»<TETHQH4TETMINl/2.0 

vardlE <  t >-so 

VARSLE  <  2  >*VCLDSIR<  TCTNCD1 
VARDLE < 3 >»T(J) 

VARDLE  <  4 I--VCLDC09I TCTNCD1 

T-0.0 

DCLT-H 

CALL  ORDI T  <  SO. BETA! . Jl 

IF ( VARDLE (ll.OC.I SDOUND-DCL T All!  TCTH8H-TCTHED 
IF  <  VARDLE  < I > .LE . DO  1  Tf TNIN-Tf TRCD 
IF < TE THOM- TETHIN  .0C.ACCMIN1  GO  TO  3000 
C 

C  FIND  MAXIMUM  ANOLC  TETM**  BY  DISSECTION 

C 

IP  (JJJJ.CO.D  RCTURR 

C 

4000  CONTINUE 

4300  Tf  TMCD-  <  TC TL0N4 Tl TMAX 1/2.0 
VARDLE  <1>  -SO 

VARDt E < 2 1 -VC LBS INI TC TAC  D 1 

VARDLE  <  3  »-T  <  Jl 

VARDLE  <41— VCL  BCOD »  »*  THE  D1 

T-0.0 

DCLT-N 

CALL  0RDI T(SO.BCTAl.J) 

IP < VARDLE < I ) .OK. (SDOUND-DCL TAX  11  TETLOH-TCTNCD 
IF f VARDt f< I ».L« . DO)  Tf TMAX- If TMCD 
|F< TFTMAK-TPTLOW.OC .ACCNINI  00  TO  4300 
TF  TMAX  ■  TC  TL  CM 
Rf TURN 


3000  CONTIMW 

C  THIS  SECTION  AT  Tf  HP  TS  TO  FIND  AT  HAST  ONE  ALLOW  D  ORD  I T  DCX 
C  Ml  BURN.  JJJJ.  LtLL-O. 

C  DO  ANOLC  SC AN I NO  FROM  LIFT  TO  RIGHT  EVCRV  (0  OCORtCS 
4V44  DO  3001  i«l • I t 

Tf  fNf  B-RPIDP  LOAMl  1/ Of  LAIN 


IMPLICIT  DOUBLE  PRECISION  *  A-M.O'Z  * 

INTEGER  PEKSEC .SEC IND.PERPAN.PANIND 
COMMON/BLM/ 

I  PSAVE (144. |0>. CSAVC  <144. 10) .PSCCTRI 144) .CSECTR< 1441. 

1  DELEE < 20 > .DELHAX  < 1 44 > .EMAX < 1 44 ) .€ T A( 20 > . BSCAT 1 < 1 44 ) . 

2BSCAT2( 144  > . BSCAT34  144 ) »PHO< 20. 40 1 . 

1 A NO < 40 ) . CPHOMX < 1 44 ) . SUNANG . ANGO . DOUNDL < 20 . 40 1 . BOUND I < 20 . 40 ) . 
7AHGL  <  20. 40  > ► VI I <  20.40 ) . 1 CHECK  <  20.40 ) .RAT !0< 131. I ROOT  < 1 44 ) • 
3IFAULT  < 14  >  » JLOCAL (1441. ICON! 144) . 

1V!<2O>.EV<0> .NLEV.NT IMCS. ILEV. T IMIN<20) . TIHAXI 20) .VINUM<20> . 
2A( t44).D(l44).C<144>. DD( 144 ) . RW( 144>.TH<I44). DU< 1441* 

3EH< 144) • TUOCOSC  7001. 

1  IFLG.NPOINT  »M. IGEOM . ISVM . IPO  I S .MSEC  T  « NPCROD. MPEROD. I  DIM Y . 
2GAMMA. DVD X<  70.48) . DVDY< 70 . 40 ) , Y < 1 44 ) . DEL TAX . DELTA V • 

3YS ( 44.481 • XS<  44 > . XSS  < 701. 

I VARDLE ( 4 ) . T . DEL T > SBQUMD.NDIM.PQT .H. Jl . RP I . PP 1 2 . RP IHAF . SQTP I  . 
2SAY. TEMPE 1. TEMPE2. DE NE 1 .0ENE2. DENI 1.DCN12. TEMPI  1. TEMPI  2. 
3TEMPR . LUM3 . LUN4 . LUN3 .LUMA » LUN7 .LUND. LUMP. LUM10 . 

1 IDTL  < 144  > . JDTL  < 1 44 ) . PERSEC  < 144 1 .SECINOt 1 44  » . I  PANEL <1441. 
2PERPAN< 144.4 ).PANIMD< 144). 

1 C I OM  < 144) *CELEC< 1441 .CSEC < 1441 .CSCC1 ( 144) .CPHOTO< 144). 

2CPH0T 1(144) . CDSCAT  <1441. CDSCA1 <1441. SECPRN (144). SECPR 1(144), 
3PHI< 144) .CGUM( 144). 

1KASE. JO ML. DPHI. NANG, RAD.PDOUND.OMEOA.ALPHA.SO.JP. IS. ECS. 
2EXPVI2( 20) .EFTVI < 20) . IERROR. TETMlM. TETMAX. BETA1 . DE TA2, JLESs. 
3L2, CARRI V.CPH. X  I . CSECEL .CSECE 1 .CS.CD.CS' 3CD1 
DATA  TOL/l.OE-3/ 

DETA2-BETAI-YS< 1 . JJ/GAMMA 
DELT-H 

IF ( DETA2.NE • 0.0)  CELT-H/SORT < DC TA2 ) 

C  COMPUTE  TIME  TO  TURNING  POINT  AND  FIND  BETTER  TIME  STEP 
TAU-2 . OBVARDLE ( 2  >  XGAHMA/DVDX  < 1 , J) 

I F  <  T AU . GT . 0 . O . AMD • TAU/20.0 . L T . DEL T )  DELT-TAU 
C 
C 

PRMT  <  31-0.0 
KDCCR-0 
C 

IRHO-O 

C 

C  COMPUTE  DERIVATIVES 

CALL  PCT ( DERY . DETAI . IRHO. IDCTA1 ) 

C 

C  SAVE  VALUES  OP  PARAMETERS 

11  00  10O  I-l.MDXM 
SAVE ( I > -VARDLE ( I > 

SAD VOX < 1 )-DCRY( 1 ) 

100  COMTINUC 
C 

12  DO  1  1-l.NDIH 

AK1 < I l-DCLTBDCRY ( I > 

VARDLE ( I >-0.3»AKl< I > CSAVC ( 1 ) 

1  CONTINUE 

C 

CALL  OUTP(SO.PRNT) 

IF (PRMT (S).NC.O.O)  RETURN 
CALL  FCTIDCRY. DETAI. IRNO.IDCTAl) 

IF ( IDCTAt .EO. 1 )  GO  TO  10 
C 

DO  2  I-i.NDIH 
AK2< I l-DCLTDDCRY ( I > 

VARDLE < I ) -O . SDAK2 ( I ) 4SAVC < I ) 

2  CONTINUE 
C 

CALL  OUTP<SO.P*MT) 

IP<PRMT<S> .NC.O.O)  RETURN 
CALL  PCTIDCRY.DCTAI.IRNO.IDCTAI) 

If (IDCTAt .CO. I)  GO  TO  10 
C 

DO  3  I-1.ND1H 
AM3( I >-DCLTBOCRY( I ) 

VARDLCT I >-AR3( I >FSAVC< I ) 

3  CONTINUE 
C 

CALL  OUT P< SO. PRMT ) 

IP (PRMT (3). NC.O.O)  RC TURN 
CALL  PCT1DCRV .DC TAl . IRNO. I DC TAl ) 

IP < I DC TAl .CO. 1 )  GO  TO  10 
C 

DO  4  I-l.NDIN 

AK4  < I >-DELTBDCRV< I > 

4  CONTINUE 

C 

C  COMPUTE  T*  NEW  VALUED  OP  THE  VARIABLES 
DO  3  1-l.NDIM 

VARDLE  <1)><AK1(I  >42.  B(  AR2(  1 14AK14  I  )  )4AK4<  ID  /A.  04  DAW  (  I  > 

5  CONTINUE 
C 

CULL  QUTP(SO.PRNT) 

If (P*MT(S) .NC.O.O)  RETURN 
CALL  FCT (BERT. DC  TAl > IRHO. IDCTAt ) 

IF ( IDCTAt .CO. I >  GO  TO  10 
C 

C  COMPUTE  TRUNCATION  ERROR 
DO  4  I-t.NDIM 

TF<t>-<AM4|  >FAK4<  !>-2.0BAAJ<  I  )  )/*.0 
«  CONTINUE 

C 

C  COMPUTE  RELATIVE  ERROR  FOR  EACH  VARIABLE 
INI  -0 
IHA-0 

DO  7  t-I.NDIM 
RTC< I »-0.0 

IF  <  VARDLE  tl>. NE. 0.0)  RTC<!)-TCl I » /VARDt  E  < I ) 

It (XftX(Bf) I  I >  * ,nt . tm  *  IMIafMT.i 


.  .apr.l'A. 


C16 


I.  lAISiKft  iIli.U.O.OItKH  t  irtA-  tt*k*  | 


C  TEST  THE  CONVt  RGENtf 

if  <  mi  .iw.o»  go  >o  9 

C  IHE  STEP  IS  REJECTED 
10  DO  8  I  •  l  •  NDIH 

MWlUl  1  >-SAW  t  1  > 

dckvt  i  i*s«moi>  i  > 
a  CONTINUE 

OCLT-0.34DCLT 
*0f  Cft*kDCCRM 
GO  10  12 


C 

C  THE  StCP  IS  ACCEPTED 

9  IFtIHA.EO.HDln>  DEL  I-2.04DEL I 
JF< 1HA.E0.NDIH>  KDCCR-0 
T-TEDCL? 

GO  TO  |i 

RETURN 

FHD 

SENA*  DILI  #01 

SUBROUTINE  OUTPTSO.PRHT ) 

C  PURrOSCJ  TO  STOP  COHPUT  AT  IONS  OF  THE  ORDITS  IF  THE  PARTICLE  REACHES  TM 
C  OUTER  BOUNDARY  OR  GOES  BACK  TO  THE  SURFACE 
C  EXTERNALS  t  NONE 

ciiMiiuiMMMmiMmiiuMmfiimmmitimtiiMMmiiiMMm 

IHPLICIT  DOUBLE  PRECISION  (A-H.Q-Z) 

INTEGER  PERSEC  .SEC I ND • PE RPAN> PAN I MD 

connoN/BLki/ 

1  FSAVC  T 144* 101 .CSAVC (144*101 .PSCCTRT 144) .CSECTRt 144 > , 

I  DELEFT  20) .DELHAXt 144>.CMAX< 144>.ETA<20> . BSCAT I * 1 44 > * 

2BSCAT7C1441 .BSCAT3T 1 44 > .PHOT  20.40 > . 

I ANG ( 40 > . CPNOHX 1 1 44 I . SUNANO . ANOO . BOUMDL < 20 . 40 > *  BOUND I T 20 . 40 > . 

2AN0L  <  20 . 40  > • V 1 1 <  20. 40  > . I CHECK < 20*  40 >  »RAT 10* 111  » I ROOT (144). 

3  I PAUL TT 1 4  )  • JLOCAL ( 144  > i ICON) 144) » 

I VI <  20) »CVT  0) .NLEV.NTIHCS. ILEV. TIHINT  20 > . TINAX i 201 .VIMUNI201 > 

2A< 1441.DT1441.CT 144  >  .  BBT  1 44  > »  BUT 144>  »  TUT  144  >  *  DNT 1 44  1  . 

3CH{ 144). TV0C08 < 700  > . 

1 IPLG.NPOINT iH« tOEOM.ISYH. 1 PO I 9 > NSEC T , NREROD . HPEROD . I D I HT . 

2 GAMMA . DVDX T 70 . «• ) . DVD Y ( 70 . 4B > . T ( 1 44 > » DEL TAX . DEL T AT * 
jrST44.4S)«XST44>.XSST70>. 

I VARBLET 4). T .DECT .SDOUND.MDIH.POI .H. Jl »RPI .AP12.RPI*N»F.SOTPI . 
2SAY.TEHPEI .TENPE2. DCNE1 .DEME2.DCNI 1 .DENI 2. TEMP I 1 . TEMPI  2. 
JTEnPR.LUM3)LUM4.LUM3.LUN4.LUN7.lUM0.LUM?.lUNlO. 

I  I DTL ( 1441 <  JOTL 1 144 > • PERSEC ( 144 1 .SCCIMO* 1441 . IPANELT 1441 » 

:PERPAN( 1 44*4  >  .PANINBT 144 »  » 

1 C ION< 144).  CEL EC  <1441 >  CSEC ( 1 44  > • CSEC 1 ( 1 44  >  » CPNQTOT 1 44  >  * 

2CPMOT 1 ( 1 44 > . CBSCAT T 1 44) .CBSCA1 < 144 > . 8ECPRMT 144 > , BE CP* 1 < • 44 > . 

3PNI ( 144  > .COUNT ! 44  > . 

1KASC . JOML . DPMI . NANO. RAO. PBOUND. ONE 0A.ACPHA.8D.jp. IS. CCS* 

2E XPVI2T 20 >  rEFTVI (201 < I ERROR. Tf THIN. TCTHAX . BE TA1 . BCTA2. JLESS. 
3L2.CARR1V.CPM.XI.CSECEL.CSECE1.CS.CB.C81.CB1 

C 


HUMOR 8-0 
OAD-VARDLCT 31 

40  IFTORB.LT. 0.0)  ORB-ORBFRPI7 
IFT0RB.0E.RPI2>  ORB-ORD-RP12 
MUHORB-MUHORB+I 

IFTORB.LT. O. . OR .ORB.OC .RPI2 >  00  TO  40 
IF TNURORB.lt. 3)  GO  TO  130 

C  PART ICULE  HAS  HADE  FIVE  ORBITS. STOP  COHPUT AT  IONS 
VARBLET 1 )-SBOUND 

ISO  IFT VARBLET D -LT . SO. OR. VARBLC t 1> .0E . TSBOUMD-DCLTAX) )00  TO  300 
RETURN 

C 

300  CONTINUE 
PRMTT31-I.0 

IFT  VARBLC  T  1  >  .  GC  •  ' SBOUND-DEL  TAX  > 1  RETURN 
C  » 

C  INTERPOLATE  ORBIT  IN  ORDER  TO  FIND  POTENTIAL  VALUE  AT  SURFACE 

C 

VX-VARBLET3) 

VARBLC T  3 1  -  < VARBLE 1 3 > - V ( 3 ) >/T VARBLET 1 >-VT I > >*T-VT I >  1FVT  31 
0RB-VARBLET3I 

70  IFTORB.LT. 0.0)  0RB-0RB4RPI2 
IF T ORB.OC .RPI2>  ORB-ORB-RPI2 
IFTORB.LT .0. .0R.0RB.0E.RFI2>  00  TO  70 
VARBLE* 3 l-ORD 
BO  00  J-t.N 

IF  (ORB -LT ■ Y< 1 1 >  OO  TO  BO 
IF  TORB.OE.TTND  OO  TO  fS 

IF  TORB.OE . T  T  J> .AND. ORB. LT . Y  T  JF1 1 1  00  TO  100 
SO  CONTINUE 
00  TO  100 
BO  Jl-N 

0RB-0RB4RPI2 
00  TO  110 
BO  Jl-N 

OO  TO  110 
100  Jl-J 
110  CONTINUE 
>2— J1  ♦  1 

.MJ1.EQ.N1  J2-I 
ORBB— ORB-T  TJ1 > 

IFTORBB.lt. 0.0)  ORBB—ORBBBRF 1 2 

POT- T  VS* 1 . J2>-TS< 1 » J» >  > /DEL TAVBT ORBB )>Y8T 1 » J1 1 

C  FIND  LOCATION  J1  FOR  SURFACE  PROPERTIES  ABOUT  PHOTOELEC IRONS. . .ETC 

C 

IFT ORBS. 0E.O.3BOEL TAT >  JI-J2 

RETURN 

END 

•CHAT BLK 1.01 

SUBROUTINE  FCTTDCRV .BCTA1 . IRHO. IBETA1 ) 

C BSBS8SSBBB BBSS BBSS BBSSSSBBBt SB BBSS BBSS BBBBBSBSBBBBBSBBSBBSBSSS SB 
C  PURPOSE  1  TO  COMPUTE  DERIVATIVES  AND  POTENTIAL  FOR  TRAJECTORY  MOSUL I . 
CBBtBBBBBBBBtBBBBBBBBBBBBBBBBBBBBBBSBBBBBBBBBBSBBBSBBBBBBCSBBBBSBBBB 
IHPLICIT  DOUBLE  PRECISION  (A-M.O-Z) 

INTCOER  PERSCCf S€CINB»PERPAN»PANINB 

1  PSAVET 144.10) .CSAVCT 144.101 >PSECTR< 1441 .CSCCTRT 1441* 

COMMON /DL  K 1 / 

I DCLEE*  20  > . DELHAXT 1 44  > .ENAXT 1441 *C  TAT  20) .BSCAT 1 *1441. 

7BSCAT2T 1441. BSCAT J* 144 l.fMO* 20*401. 

1 ANO T 40 > * CPHOMX ( 1 4 4 1 . 8UNANS . ANOO . BOUNBL < 20 • 40 > * SOUND 1 1 20 « 40 1 . 

7AH0L T 20 » 40 > . V 1 1 < 20. 40 1 . 1 CHE CUT  20*401 »RAT 10* 1 J » » I ROOT  *  1 *4 » • 

JIFAUL T T 1 4 1 . JLOCAL « 144 1 » ICON* t 441 . 

I VI T  20)  »EVT  B  >  .NLEV.NT  IMES.  (LEV.  f  MINT  20 >  »  TIMAS*  20)  .VURJM*  20 1  * 

?A( 1 44  > - B( 1 44 ) >C  < 1441. BBT  1441 »BN* 144I.INT 1441*  BUT  I  44 1 » 

TCMt 144) . TWOCDSI 7001 . 

I IFLG. NP01NT . N. I Of Off* I SVH.IPOIf* NSEC T.NPtROB.HPEROD. I BINV. 
20AHHA.DVDXT 70.4B> .DVBTT  70.4Sl.TT 1441* BEL  TAX. BEL  TAT  * 

JYST 44.40 1 . VST 44 >  t >88! 70 >. 

1 VARBLE T 4 1 ♦ T . DEL T • SBOUND.NDIH. POT  * N. Jl .  RP 1 .AT 1 2 .RPIHAF . SOTPf # 

2SAT . TEnPE 1 . TEHPf 2 .DENE  1 . 0CME2 . OCNI I . OEMI 2 . TEMP 1 1 . I CNP 1 2. 
3TEnPR.LUNJ.LUN4.LUN3.LUN4.LUN7.LUNR.LUNP.U)NI0. 

|  Ml  ft  I  |  44  |  .  tntl  I  >44  I.PMUr<  I  441  »44  *  .  IP4HTI  <1441. 


2M.RPANI 144.41 .PANINDI 144) . 

H  I  UN  i  144)  *LEl  I44>  .  LSI  C  I  1441.  LSI  LI  l  144)  . LPHOIUI  144). 

7LPH0T I t 1 44 >.C BSCAT ( 144) .CBSCA1 < 1 44 ) .SLCPRNI  144) . St  CP* 1 1  1 44). 
)PHt< 1441. LGUNT 1441. 

IKASt  .  JOMt  .  DF-H  I  .NANO.RAD.PBOUND.OnLOA.AlPNA.BO.jp.  I  S.ICS. 

»*l  XPVI2T  20)  «EF  TV1  <  20)  .  I  ERROR  .  IC  THIN.  It  TMAX.M  I  Al  .  M  I A2.  Jl  t  SB. 
11  7.CARRIV.CPM.*! .CSCCEL.CSECE1 .CS. CB.CSl »CB1 
IDF IA1-0 
DO  1  K-l.NDIM 
I  V(K). VARBLE  (K) 

10  l »  IF  l  X  t  VARBLE  < 1 )/ DEL TAX ) *  1 
ORB -VARBLE  <  3  > 

It  IFTORB.LT. 0.0)  ORB-ORBFRPI 2 
IF  <  ORB . GE . RPI 2 )  0RD-0RD-RPI2 
IFTORB.LT. 0.0. OR. ORB. 0E.RP12)  00  10  11 
DO  12  J-I.N 

IFTORB.LT. YT1)>  GO  TO  13 
IFTORB.GE.TTN>>  GO  TO  14 

IF  T  ORB.OC . TT  J  > . AND.ORB.LT . Y<  Jf  D  >  OO  TO  13 

12  CONTINUE 
GO  TO  13 

13  A-0RB1RPI2 
J-N 


JPl-l 
GO  TO  |4 
14  J-N 
JPl-l 
A-ORD 
GO  TO  14 
C 

13  JPI-JM 
IFTJ.EO.N)  JPl-l 

A-ORB 

14  CONTINUE 

8 -VARBLE  1 1  > 
ipi-m 

C  DO  BILINEAR  INTCRPOLA I  ION  ON  POTENTIAL  DERIVATIVES 
AA-TS-XSI 11 1/BEL TAX 
BB-TA-YT J) 1/DCLTAT 
MP2-N42 
DO  31  II-1.NP2 

IFTVARDLCT1)  .OE.ISBTII). AND. VARBLCTD.LT. XSSTIDD)  OO  TO  12 

31  CONTINUE 

32  iii-im 

AAA-TS-XSST II 11/TXBSTI14I )-XS8T ID  1 

DVX A- T 1 . 0- AAA ) B T I . O-BB 1BBVBX < 1 1 . J » »BB8 *  1 . 0-AAA > SHOOK T 1 1 . JP | > 4 
|  AAAST 1 .O-BB) BDVDXT III. J)*AAABBBBDVDX4 III. JP1> 

C 

DO  33  JJ-l.N 

IF  tORB.LT.  I YT  DF0.3BDELTAY)  >  OO  TO  34 
IF  IORD.OE. <TTN)»0.3«DCLTAY> 1  00  TO  33 
JJ1-JJ+1 

IFT  J J .CO . N!  Jjl-| 

IF  TORS. OE . T  TT  JJ>40 . 3BBELTAT 1 .AND.ORB.LT • 

I  TT  JJI  D0.3BDCLTAV1  00  TO  14 

33  CONTINUE 

C 

34  JJ-N 
JJ1-1 

AO-ORB4RPI2 
00  TO  37 
C 

33  JJ-N 
JJI- 1 
AO-ORB 
OO  TO  IT 

C 

34  AO-ORB 

37  SBB-T AO-Y* JJI -0. 3BDCL TAT ) /DELTA Y 

PVYA»T 1 . O-AAIBT I . O-BBB 1 BBVDY T 1 • JJ14BBBBT 1 .0-AA1BDUDT* I .JJI 1 ♦ 

1  AAB ( 1 . 0-BBB>  SPODYT IP1 . JJ) 4AABBBDBDVBT < IP1 .JJI 1 
C  BO  BILINEAR  INTERPOLATION  ON  POTENTIAL 

AA—  <  CXPT  S  >  -CXPT  XB  Till  )/  TEXPT  XSTDtll  -CXPT  XST  1 1 1  1 
POT-T 1 .0-AA1BT 1 . O-BB 1 STB* I. J1FBBBT I . O— AA1BTBT I. JPI >♦ 

1  AAB*  1  •  <>-BB  )  BTS<  IP1 .  Jl  ♦AA4BBByS<  FPt*  JPE  I 
C 

EXPU-CXP* -VARBLET D  > 

30  BCTA2-BETA1 -POT/RANNA 

IFT  BETA2 . LE .0.01  IBETA1-1 
IFTBCTA2.LE.0. 1  RETURN 
DEX-O.SBCXPf -2.0BVARBLET 1 1 1 
PERT* I  1 -VARBLE  T  21 

PERT ( 4 1 -VARBLE ( 4 1 BB2 -VARBLE ( 2 1 BB2-BC  XSDVX A/OAMMA 

PERT  T 1  >— 2 .  OSVARBLE  (  2 1 B  VARBLE  (  4 1  -BEXBDVTA/OAWMA 

PCRTT41- VARBLET 41 

RETURN 

EMB 

0UEBSTPNI.PSECTR.CBECTR.Y1 


PAOL-OE  •  4 


•UCBS  FIELD  COMPUTATION 


:SStBSB8BSSfSSBSSasaSSaSBSSt8SaSStSfaaBMB8ttSfSSSSBBSB8SaSBBSStt0B 

:  PURPOSE  I  TO  CONPUTC  A  suets  FIELD. 


f NTESER  PC RSEC.SE Cl  MB.  PE SPAN. PAN I NS 

COMMON  PSAVCT 144. 101. CBAVE* 144* 10>. PSKCTR* 1441. CBECTR* 1441. 

1 BCLEE T 20 ). DCLNAXT 1441. ENAXT 144 >. ETA* 201. BSCAT IT  1441. 
2BSCA17T1441.BSCAT3T 1 441. PMOT 20.401. 

1ANST40) , CPNOHX T 1441. BUNANS. ANOO. BOUNBLt 20.40 >.BOUNSI< 20* 401. 
2AMBL  *  20.40) .VII*  20. 401  * ICNECR* 2S.401 .RAT IOT 111. 1B00T (1441# 

3 (FAULT* 141. JLOCAL TI44). ICON* 144). 

IVt  T  201 .EVTBl .NLEV.NT !HEt« ILCV. TINlS*20) . T INAX* 70) .VIMIN* 20) • 
2A* 144 1 »B< 144 1 *C ( 1 44 1 .BB< 144 1 .BN* 144) . TM< 144 1 .DM* 1 44 1  * 

3«N< 1 44 1 . (HOC OS* 700 1 . 

1  If  LO.MPOINT  .  H.  IOC  on.  IStn.  IPOlt.NSECt  .MPEROS.nPEROB.  IBINV  • 
2«AMMA.DVBI( 70. 4«).BVBT( 70.40). T< 144). BEL  TAX. BELTAT* 

|f ST  44. 4S 1 .XST  *4 1 . XSST 70) . 

|  VARBLE  <  4 1 .  f  .  BEL  »  .  S  BOUND. NBIN. POT  »M.  Jl  .SPI  .SP 1 2.  RP  IltAF  .  BO  TP  I . 
7SAV . TENPC I . TENPC7. DENE  I .BEHE2.BCNI 1 .BENI 2. TEMPI 1 . TEMP 1 2. 
3TEnPR.LUnj.LUN4 . LUW3. LUNA. LUN7.1UNS. LUMP* IUNIO. 

1 IDTl  *  144 1 . JDTL4 1441 .PERBEC* 1 44 1 .SEC IRS* 144). IPANEL <1441. 
2PERPAN* 144.41 .PANINBT 1441. 

ICIONI 144). CCLEC* 144). CBECt 144). CStCI 1144) .CPMOIOT 144) • 

2CPN0 T t < 144 > . CB8CAT < 1 44 ) .CBSCAI < 1 44 1 .SCCPRN* 144 ) .SECPRt 1 1 44 ) • 
3PMI(144).C0UN<144). 

IMV»  HH  .IIHtt  .«MNn.lr«||.KtiniMII.TMXM.H  HN.XA.  B.ll.m. 
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’I  if'Vl .-g  >  .if  fwn  .'0>  ■  itKkuk.iE  ml**.  it  Tnax .weiai  .be  r«.*.jusi>. 

ll.'.CAMCIM.CF M.  *1  «  CSECEL  •  L  »l  CC  1  .  LS  .  L  B  .  OS  l  .  C  D1 
INItGtR  I.  |.X»L»*.N.I 
Ml*  IIK  J 

p*r*  rswiiM/o-' 

no  i  i-i.nscct 

CuAM< I  1-0.0 

oupp< I >’0.o 

F-MlMt  !  »-.U 
PM|P< 1 »• .0 
1  COMMNUf 

c 

NIOUA--I 

10  NI OUP-N T OUR F  1 

If  (NIOUR.GE  .OOO*  WHITE  (*.hOO* 

A 00  FORMAT  ( IX.4NO  CONVERGENCE  IN  GUESS  FIELD  AFTER  BOO  ITERS4* 
IF  IMTOLIR.GC  .BOO)  SIOP 
t«0 

DO  IOO  !-l. MSEC! 

EC9-0.0 
CE  T< 11*0.0 
CM-0.0 
* -PERSIC < I > 

N-L  FK 
T-L*l 
C 

DO  90  J-f.N 
N-SECIMDI J» 

ECS-€CS*CURCMT«H.PMI <«>.»<*) ,CE»CPW.C8.Ci.CS€CEL) 

CET<I)-CCT<I»*CE 

PS£CTR< I »«PMl (N* 

00  CONTINUE 
L-LFR 

CSCCTR< I >-ECS 
IOO  CONTINUE 

C 

C  PREPARE  DATA  FOR  REGULAR  FALSI  ACT HO ID 
IF  (MTOUR-l)  201  *  401 . 401 
201  00  210  I -I. MSECT 

IF (CSECTR 4 l).GT.O.O>  00  TO  111 
CURM< 1 > -CSECTR! I > 

PMIM< 1 1 -PSCCTR! I > 

PSCCTR < I ) -PSCCTR! I >-3.0 
OO  TO  210 

111  CURP(I»-  CSECTR! I ) 

PMIP<I>-  PSCC  TR<  I  ) 

PSECTRI I > -PSCCTR! I >♦! .0 
210  COMTINUC 


CS-O.O 

LB-0.0 

CSI-0.0 

CB1-0.0 

IFI 1FAULT(3>.MC.0.0R.IFAULT<4>.ME.0>  CALL  CB*< II . J.CS.CB.CSl >CII » 
IF ( IFAUL T ( 9  > . EQ .  I  >  CALL  SECCl < XI .C St CEL .CSCCC 1 » 

VAR4-TY -SUNAMC 
IF  IXl.OI.0.0)  OO  TO  I 

IF  « RATIO l  2J  .ME  .0. 0*  CC»-AAlIO<*l«XP<-XI/RAIiO(2l  » 

I F  < RAt 10(11 > .ME .0.0*  CE2-RATI0I 11 > *EXP< -X I /RAT I0( 10 1 » 

CE- 1  CE  HUE  ME  1  FCE  2R0CME  2 » /DEMI  1 

Cl  1 -2.0DSAY*  <  SORT  I -X I /RAT I0( B ) ) FCOCF I < SORT ( -I I/RAI 101 ■ > t  >* 

Cl I -Cl t 4  RAT 10(71 
IF  ( TEMPI  2 .ME .0.0) 

1  CI2-12.0*SA»tSORT<-*l/RATI0ll > JFCOCFT<S<IRT< -XI /RATIO! !»»*»• 

2  RATIO! 12>*0CNI2/DENII 
C I -Cl 1 FC 12 

IF ( IFAUL  TISl.CO.il 

I CPH -O . 54CPFF0HX < J > • 4 COS < WAR* > ♦ ABB < COS < MARA » * ) *F AC 4RA T 1 0 » 9 1 
CORE MI -C I FCPM-CE  FCSFCBACSCCCL 
IF < 1  TRACE. EO. ©> 

IWRITE  (9.400)  J.XI.CE1.CC2.CI »CPM >C8.CS»CSCCEL  » CUREM I 
RETURN 


I  CII-CXPI-XI /RAT IO<0>  *RRAT 10(7* 

IF ( TEMPI 2. ME .0.0*  CI2-€XP< -X I /RAT 10< I > > RRAT I0< 1 2 1 RBEM1 2/OEMll 

CI-CIIFCI2 

IF  <  RAT  I 0<  2 ) . ME . 0 . O  )  , 

ICC  t -RAT I0<  4  >*  <  2. O*SAT*<S0RT ( -XI/RAT I0( 2 )  * FCOCF T (SORT < -XI/RAl 10(2* 

1  llll 

I F  <  RAT  1 0 ( 101. ME. 0.0) 

ICI2-AAT10U1  »•<  2.  *SAT*<  SORT! -XI/RAT  IO<|O))FCOCFT<S0AT< -XI/ 

2  RAT I0< 101  >>>> 

C  E - <  CE 1 IDCMC 1 FCE 2SDCMC  2  > /DEMI  1 
IF  < IFAUL T  <31 .EO. 1 1 

ICPH-0 . 39CPHONX  <  J>S <  COS < WAR* 1 FABS<COS< WAR* 1 1 >R£XP<  XI/RAT 10(3* 1 
CPFF-CPM*2.0*SAY*< SORT! -XI /RATIO<3)>FCO£F»< SORT <-Xl/ 

1  RATION  51  n>tfAC»RATI0<9> 

CURCMT-C I FCPM-CE FCSFCBFCSCCEL 
IF( I TRACE .CO. 01 

IWRITE  <9,AOO>  J.XI.CE1.CE2.CI. CPH r CS . CD. CSC CEL • CURE NT 
400  FORMAT  < 1 X * l**9< 1PC 10. 31 1 
RETURN 
END 

SUBROUTINE  8CCTORCMPOINT.NSCCT . PERSCC . SEC  I MB . PM I rPBECTR . 

1  CSECTR  »CION»CCLEC  *  C8EC .CDSCAT .CPMOTO . SECPRN. I LOOP » I TER»  BCBACC  1 


OO  TO  500 

C 

C  BEGIN  RCOULA  FALSI  ITERATION 
401  K-0 

00  410  I-I.NSCCT 

IF <ABS<CSCCTR<  1 1  > .LC . TOLSCC T< I ) 1  OO  TO  410 
IF<  CURN< 1 ) . EO . 0 . 01  PHIN< I >-PSECTR< 1 1 
IF  (CURN'I). £0.0.0)  CURM<ll-C8CCTR<I) 

IF  <CURP< I > .EO.O.O’  PHIP4I)-PSCCTR<I> 

IF  < CURP < I > • EO .0.01  CURPI 1 1-CSCCTR< 1 1 
K-KFI 

IF  <CURN< 1 )  DCSCCTR  ( I > . OC .0.0*  00  TO  420 
CURPI I >-CSECTR< 1 1 
PMIP4 1 >-P8CCTR< 1 1 
GO  T0430 

420  CURM<Il-C8CCTR<I> 

PNIN<I)-PSCCTR<II 

430  IF4CURM4 1 1 SCURF < 1 1 .LC.O.O)  OO  TO  440 

IF< CURN< I ) • OC .0.0)  PSCCTR4 1 1-PBCCTR4 I )F1 .0 
IF  <CURP< I > . L£  .0.01  PSCCTR! I >-PSCCTR< 1 1-1 .0 
OC  TO  *10 

440  PSCCTR4 1 1 •4PNIN4 I >  DCURP ( 1 >-PHIP< 1 1SCURN4 1 1 )/<CURP< 1 )-C4JRN< I 
l  )» 

410  CONTINUE 

IF  (K.NE.O)  00  TO  900 
WRITE  (9*401) 

401  FORMAT  (IX. *  OR  PAOT  OUCSS  FIELD* I 
WRITE  <9*4001  *  <PHI ( J  > . J-l . NPOINT 1 
4001  FORMAT  <44 IX* IPC12.3) ) 

I SMITH- I 

C 

900  L-0 

DO  901  I-t »NOCCT 
PMl MEM  'PSCCTR! I > 

K-PERBCC4 1 1 
N-L  4* 

T-LF1 

DO  910  J-T.N 
N-0CCIMO4J1 
PMf  <N1 -PMINCW 
910  COMTINUC 
L-LFR 

901  COMTINUC 

IF  4  I BN I TH. CO* I >  RETURN 
OO  TO  tO 

CNR 

FUNCTION  CURCNT  < J.XI , TT.Ct .CPH.CS.CB.CSCCEL 1 
CttS«SS8*SSttS*RttO**SS8Sa*8*S*8*8S8SS*a»SS8S88BS8*88RSOOS*SOtOtS«*SS 
C  PURPOSE  I  TO  COMPUTE  CURCNT  COLLECTION  AT  OR  IB  POINTS  FOR  MM  FIELD. 
CttBBSIBISBStBBSStRBiSSSSSSSiSBSBBBSBBSSSSSSBSSSSStSSSSSSSSSSSSSSSSISSS 
I NT COER  PERSCC* SEC IND.PERPAN.PAMINB 

CONNOR  PSAME  < I **» I0>  .CSAME  < 144*101 *PSECTR< 1*4) »C0ECTR4 1441  * 

1 DCLEC4  20)  *  DELHAX4 1 44)  .CHAM4 144) »CTA<20>  *BBCAf  14 1441* 

2BSCAT 2 4 1 44 > * SSCA T 34 1 44 1  * PM04 20 . 40 » • 

1  AN0<  40 1  .CPFFONX <1441  . SUMAM8. AMOO. ROUMSL < 20*40 1  .BOUNBI <20*401 . 

2AN0L  4  20 . 40  »  »  MI 1 4  20*  40)  *  ICFCCX  <  20*  40  >  *RATIO<  1 3 1 . 1  ROOT  4  ISO  >• 

3 {FAULT  4 14 1 » JLOCAL  < 144) *  ICON! 144 1  * 

IMS < 201 *EV<S) .MLEM.MTINCB. ILEM. T ININ! 20) • TIHAX < 20) *WINUN<20)» 

2A<  144)  *B<  144  1. C<  144 1.BB4  M4>  *M<  1441  *TW<  144). BM4  1441* 

JEW< 144 ) . TW0C0S4 700) • 

1 IFLO. NPOINT. N* IOC ON. ISTN* IPOIS*NSCCT»NPCROS*NPCROS»lSINT* 
20ANMA*DVBX< 70* 40) *DUBT( 70*401 »T< 1441 » BEL TAX* BEL TAT* 

J YS < 44 r 4B > . X8<  44  * »XSS<  70> • 

1  MARBLE  <  4 )  .  T  .  DEL  T  *  8S0UM*  NB IN.  POT  *  M  .  Jt .  RP I  *  RP 1 2.RP  IMRE  *  MTP I  » 

2SA T r TENPC I  * TCHPC 2 * DENI 1  * DENE 2 * SEN 1 1  * OCN 1 2 • TEMP 1 1  * TCNP 1 2* 
3TENPR»LUNJ*LUM4»lUN9»LUN4»LUN7»LUN0»LUN9*LUN10» 

I IDTL< 144). JDTL 4 144) .PERSCC  < 144) .8CCIHB4 144) » IPANEL4 1441  * 

2PERPAN4 144.4) >PANIND< 144). 

1C  1 0N<  144)  *CCLEC<  144)  »CSCC<  1 44 1  .CMC  1 1 1 44 1  *CPF40T0<  1441* 

2CPN0T I < 1 44 > . C BSC AT < 1 44 ) .CDBCA1 4 1 44 1 . SCCPRN4 1 44 ) .BCCPRI < 144 » * 

3PNI <144) *CQUM< 144)* 

IX  A9C  .  JONL  .  DPH I  *  NANO  *  RAB  *  PDOUND  .  ONE  BA  .ALPHA*  SO  *  JP  »  1 8  .  ECS  . 

2EXFMI2<  20 > .EFTUI <  20) . I ERROR. TETNIN. TCTNAK*SCTA1 .BCTA2* JLESS* 

JL2. CARR  IV. CPM.XI. CSt CEL. CSC CE |. CS *CB . CS1 >C»1 
C 

DATA  FAC/1.0/ 

CSCCEL-0.0 
CII-0.0 
C  12*0.0 
CPM*0.0 
Ct 1-0.0 
PF7-A . A 


CSSSSSS8SSSSSSSS4SSSSSSS4SSSSSSSSSSSSSSSSBMSBSRSSSSSBS4BS8SS 

C  OUTPUT 

C  PSCCTR. CSECTR 

C  DESCRIPTION  OP  MARI ABLER 
C  NPOINT  NUMBER  OF  POINTS 

C  MSECT  NUMBER  OP  BCCTORS 

C  PERSCC ( I )  MUMPER  OP  POINTS  IN  SECTOR  I.KKNSCCT 

C  SEC I NO  ME C TOR  OP  INDICES  DIMENSION  NPOINT 

C  INDICES  ARE  A  PERMUTATION  OP  INTCSERS  J,  l-<J-<NSOINT 

C  FIRST  PERSCC! I )  ELEMENTS  ARE  INDICES  OP  POINTS  IN  SECTOR  1 

C  NEXT  PERSCC  <2>  ELEMENTS  INDICES  OP  POINT  IN  SECTOR  2*CTC 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSBSSSSSSSSSSSSSB 

c 

IMTCOCR  T 

INTCOCR  PERSCC. SCCINS.PCRPAN.PANINS 

COMMON  PtAMC<144.l0>*CSAMC<l44*10)»P0CCTR4I44)*CSECTR<l44>» 

1 BELCE ( 20 > * DCLTMX < 144 ) .EMAX4 144 > *CTA< 20) * SSCAT I 4 144 ) * 

2SSCAT24 144 ) .BSCATK 144) *PMO< 20*40) . 

I AMO < 40 >* CPFFONX! 144) * BUNAMO* AMOO* DOUNBL 4 20 *40) .BOUND! (20*40) * 
2 AMOL 4 20 * 40 > . MI 1 4 20* 40 > . I CHECK 4 20* 40 ) *RAT 104 1 J > . I ROOT 4 1 44 ) * 

3 IFAUL T < 1 4 > » JLOCAL < I 44 > * IC0H4 1 44 ) . 

101(20) *CM<§>  »IE£V*MTINES* ILEV*  TINtN420)*TIMAX420) .MINIMI 20) * 
2A4 !44>»S4144)*C< 144) *SS4 144) *BM< 144  >  *TM< 144) »SM4 144) » 

3CW4 I 44 ) * TWOCOB 4 700 ) * 

1 1FL0. NPOINT *N* I BE ON. ISTN. IPOIS.NOCCT . NTEROS .MPEROS. 1SIHY* 
2SAMMA . BMOX 4 70 » 40 > * DUST 4 70 » 40 ) * T 4  1 44 > • DEL TAX * SCLTAT * 
3YB<44*4B)*XS44A>tXBS<70>. 

1 MARBLE  <  4  >  * T  »SELT*SBOUNS»NSIM»POT  »M. J1 *RPl .RPI2.RPIMAP  »OOTPI * 
2SAT .TEMPE1 *TEMPE2»BENE1 * BEME2*  SEMI 1.SEM12 .TEMPI 1 .TEMPI 2* 

3  TEMPS  »LUN3  *  LUM4  *  LUMS*  LUMA.LUM7  *  LUMO  *  LUMP  *  LUM1 0  * 

1 ISTL4 I 44 ) * JSTL 4 144) .PERSEC 4 1 44 ) .0CCINS4 144 ) * IPAMCL 4 1 44 > . 
2PERPAN4 144*4) . PANINS! 144) * 

ICI0N4 I 44 ) .CELCC4 144 ) .CSCC4 I 44 > .CSC Cl 4 1 44 ) *CPMOTO< 1 44 ) • 

2CPM0T 1 4  1 44 ) . CSSCAT 4  1 44 » .CSSCA1 4 1 44 > * SCCPRM 4 1 44 > * SCCPRt 4  1 44 ) • 
3PMI 1 1 44> rCSUM! 1 44 > * 

1KASC* JONL .DPMI. NAMB.RAB.rSOUNA. ONE OA.ALPMA.SO.jp, IS. CCS* 
2CXPVI2420 ) .CFTVI 4 20 ) . I ERROR. TC THIN. TCTNAK . SC TAI * SCTA2* JLESS* 
JL2 . CARR I M . CPM . X I , CSECEL * CSCCC t * CS *CS *CS1 • CS I 
L-0 

BO  IOO  |*1, MSECT 
ECS-0.0 
K-PCRSCC  4 1 ) 

N-LFX 

T-L4I 

SO  90  J-T.M 
MM-SECINS4 J> 

CCS-CCS9CCTT4MH> 

PSECTR4 I )*PMI 4 MM) 

90  CONTINUE 
L-LFK 

CSECTR! I) -CCS 
iM  roNTlMUE 

WRITE  40*401)  ICRECTRIl. .I-I.NBECT) 

Ml  FORMAT  4R4IX.IPE10.3)) 

RETURN 

END 

FUNCTION  CETT4J) 


C  ALL  CURRENTS  * 
C  CION 

r  pfi rr 


BINCNSI0MALI2EB  Ml TM  RESPECT  TO  REF  TCNP 
N-S  ION  CURRENT 
M-n  nrrfRAH  rtRffSf 
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«-  CSEC  N-0  SIC  CURRENT 

C  BSCAT  RACK -SCATTER  ELECTRON  CURRENT 

C  CPHOTO  N-0  PHOTO  ELECTRON  CURRENT 

C  CCTT  net  current 

C  SECERN  N-D  SEC  ELECTRON  CURRENT  INDUCED  BY  PROTONS 

C  XI  N-0  POTENTIAL 

cummuMMimiMiiuuuiMiiitmumiiMiitiiMMittiii 

INTEGER  PERSEC .SEC IND.PERPAN. PAN I ND 

COMMON  PSAVCI 144, lO> .CSAVE t 144. 10> .PSECTRI 1441 .CSECTRi 144) . 

I DCLEE  »  20  * •  DELMAX  < 144  > .EMAX (144).ETA<?0)>  BSC AT  1 < 144) * 

2BSCAT ?< 144) .BSCAT 3 < 144) .PHOC 20.40 ) . 

1 ANO ( 40 > . CPHOMX < 1 44 ) . SUNANG . ANOO . BOUNBL < 20 . 40 > . BOUND l t 20 . 40 ) t 
2ANGL  <  20.40 I »  VI I  < 20.40 ) * ICHCCR  C  20.40) »RA  T  IQ< 13>.IROOT< 144). 
HE AULT  (14). JLOCAL! 144)  t ICON! 144). 

1 VI  <  .'’0  >  »EV<  8  >  .NLEV.NT IHES>  ILEU.TIHIM4  20)  »  TIHAX I  20)  »WINUN(  20 )  • 
2A<144).ll 144J.CT 144) *BS< 144 ) .BUT  144) .TW! 144) «DW< 144). 

3EW( 144* . TUOCOS( 700) . 

! IELG.NP0INT .M. ICEOM. ISTN. 1P0IS.NSECT . NPEROD. NPEROD . IOIMV . 

2 GAMMA .  DVDX  (  70 . 48 )  .  DVD  T  <  70 . 48 )  .  TI144  )  .  DEL  TAX  .  DEL  TAT  » 
3VS(A4.48).XS<A6> ,XSS( 70) . 

1 VARBLE (4J.T.DELT .SBOUND.NDIM.POT  >H. J1 »RPI . RP 1 2. RPIHAF  »5QTP I » 
2 SAT . TEMPE 1 . TEMPE2.DE NE 1 . DCNE2.DENI 1 .DCNI2. TEMPI 1 . TEMPI 2, 
3TEMPR . LUN3 . LUN4 .LUNS • LUN4 . LUN7 .LUN8 . LUN4 .LUNIO . 

1 IDTL< 144) . JDTL< 1 44 > . PERSEC < I 44 ) . SEC I ND< 144) . I PANEL < 144> • 
2PERPAM! 144.4) »PANIND< |44 > . 

1CI0N< 144) .CELECt 144) • CSEC < 144) .CSEC1 < 144) .CPHOTOI 144 > . 

2CPH0T 1 < 1 44  > .C BSC AT  <144) . CfcSCAl < 144 ) « SECPRNI 144) .SECPR 1(144). 
3PHI < 144). COON (144). 

1 RASE. JOML .DPMI .NANO. RAD. PBOUND.OMCQA.ALPMA.SO.jp. IS. ECS. 
2EXPVI2I 20) .EFTVI <  20) . IERROR. TETMXN. TETMAX . BE  TA1 >  BE TA2. JLESS. 
3L2.CARRI V.CPH.XI . CSECEL . CSECE 1 .CS.CB.CS1 .CB1 


If  l IFAULTI 1 ) .EO.O)  CION( J)-0.0 
ir  < I FAULT <2> . EQ • 0 >  CELEC<J)-0.0 
If  < If AULT <  3  > . EO . O )  CSEC ( J ) -0 ■ O 
IF  < 1FAULTI4) .EO.O)  CBSCAT ( J) -0 . 0 
If  (If AOL T < 5 ) . EO • O )  CPMOTOI Jl-O.O 
CPHOTO <  J ) —CPHOTO!  J  >  BRAT  I Q( 4 > 

CPHOT 1 <  J) “CPMOT 1 <  J  >  BRAT 10(4) 

If«  IFAULT(V) .EO.O)  SECPRN( J > -0. 0 

CETT-CION< J)-CELEC<  J)4CSCC< J*4C BSCAT < J)4CPMOTO< J)48£CPRN<  J) 

URITE  (LUN4.AOO)  J. PHI < J) .CET T .C ION< J > .CELEC ( J ). CPHOTO ( J) . CPMOT 1 ( J 
1  ) >CSEC ( J> .CSEC 1 ( J) .CBSCAT  <  J) .CBSCA1 <  J) . SECPRNI J) * SECPR 1 ( J  > 

400  FORMAT <13.121 1PE lO. 3 ) > 

RETURN 

END 

SUBROUTINE  CBS(XI .J.CS.CB.CS1 rCBl > 


cmtiiiMiiimmiiiimtiMimiMMiMmiiMiiiittmtiiiiiim 

INTEGER  PERSEC. SCCIND.PERPAN.PANIND 

COMMON  PSAVE  < 144.10) .C8AVC  < 144.10) . PSCC  TR  < 144 ) . CS£CTR< 144). 
1DCLEE ( 20) . DELMAX (144). EMAX ( 1 44  > .ETA ( 20  > . BSCAT 1(144). 

2BSCAT2< 144). BSCAT3 ( 144 ) »PMO< 20.40). 

1 AMO ( 40 ) . CPHOMX < 1 44 ) . SUNANQ . ANOO . BOUMOL ( 20. 40 > . BOUND I ( 20 . 40 ) . 
2AMGL<20.40>.VII<20.40>» I CHECK < 20.40). RATIO< 13). IROOT( 144). 

3 IFAUL  T ( 1 4 ) >  JLOCAL  < 144). 1C0N< 144  > . 

1VI ( 20) »£V<9) .NLEV.NT1MCS. ILEV. T IMIN< 20) . UMAX (20) .VI HUM (20) . 
2A(144)*B( 1 44 ) >C ( 144 ) . BB( 144) . BUI 144)»TH< 144). DW( 1 44 ) » 

3EW< 144). TWOCOS< 700 ) » 

1 JFLG .NPOINT  »M, I0E0M. I STM. IPOIS.NSCCT . NPEROD .MPEROD. IDIMT. 

2 GAMMA*  DVDX <  70. 48 ) . DVDT < 70.48 ). T ( 1 44 ). DCLTAX . DEL TAT . 

3 VS  <  44.48 ) . XS ( 64) . XSSI  70) • 

1 VARBLE (4)#T.D£LT»  SBOUND.NDIM.POT . H. J1 . RPI . RPI 2.RPIHAF • SO TP I . 
2SAV . TEHPC1 . TEMPC2. DENE 1 . DEHC2 . OCNI 1 • DENI 2 . TEMPI 1 . TEMPI 2 . 

3 TEMPR .LUN3 .LUN4 .LUN9. LUNA . LUN7 .LUN8. LUMP .LUN1 0. 

1 IDTL( 144 ). JDTL( 144). PERSEC! 144). SECINDI 144). IPANEL( 144). 
2PCRPAM! 144.4) .PANIND! 144) . 

1C10M1 144). CELECI 144). CSECI 144). CSECI < 144). CPHOTO! 144). 

2CPH0T1 (144) .CBSCAT (144) .CB8CAI! 144) .8ECPRN! 144) .8ECPR1 ( 144) • 
3PHI < 144) .CGUN( 144) . 

1KASE. JOML .DPMI . NANO. RAD.PBOUND. OMEGA ?ALPHA. SO. JP« I 8. ECS. 
2EXPVI2I20). EFTVK20).  IERROR.  TETNIN.  TETMAX. BETA1.BCTA2.  JLESS. 
3L2.CARRIV.CPH. XI. CSECEL. CSCCE1.C8.CB.CB1.CBI 
C 

DO  710  J J* 1.2 
IF(JJ.MC.l)  GO  TO  711 
0AHHA-RATIO(2> 

TEMPE- TEMPE I 
RATE-RAT 10(4) 

DEN-DENE 1 /DEMI 1 
OO  TO  712 

711  OAMHA-RATIOdO) 

TEMPE-TEMPE2 
RATE -RAT 10(11) 

DCN-DENC2/DCNI1 

712  CONTINUE 

iriDEN.EO.O.O)  80  TO  7|0 
NUN— I 
VZERO-O.O 
If  (XI.NE.O.O) 

1 VZBRO— AHAX1 <0. . -XI/QAHHAS8ORT<ABS<XI/0AHHA> )/ABB(XI/OAMMA 

1  )) 

00  709  I-l.NLEV.ILEV 
BETA1-VI ( t )BB2 
BET A2-BE TA I -X I /GAMMA 
If  (BCTA2.LC.O.O)  80  TO  709 
MUM— MUM 4) 

V  DMJM  <  HUM  )  —BUNT  t  IP  T  A2  ) 

DCLEE ( NUH>-7 . 4 • DEL MAX ( J ) t BE TA2t TEMPE BEXPI -2.0BS8RT ( BCTA2STCHPC/ 
1  EMAX(J) ) )/EMAX< J) 

BBC-B8CAT3 C J ) BBETA2B0AMHA 
ETA(NUM)-BBCATHJ) 

If  (B8C.LE. 100.0) 

1  ETA< NUH) -BSCAT 1 < J)-BBCAT2( J)BCXP< -BBC  > 

709  CONTINUE 

IF  (NUN.EO.l)  GO  TO  710 
VINUH< I )-VZER0 
BCTA2-VZER0BB2 

OELEE ( I ) - 7 . 4B0CLNAX ( J > BSE T A2BTENPC BEXP ( - 2 . OBBOR T < BE TA2B TEMPE / 

1  EMAX  <  J ) ) ) /EMAX  <  J  > 

BSC- BSCAT 3 < J  >  BBC  TA2B0AMMA 
ETA! 1 ) -BSCAT I ( J) 

If  (BSC.LE . 100.0) 

1  ETA< 1 > -BSCAT 1 ( J ) - BSCAT? ( J)  BEXP4 -BSC ) 

NUMM1-NUN-I 

CUR2-0.0 

CUR3-0.0 

COCf l-€XP(-Xt/0AHHA>/80TPI 
ABELO-O.O 
BOCLO-O.O 
A  SC  AO- 0 . 0 
BBC AO -0.0 
C 

DO  814  t-I.NUHMI 
DCNON-UINUMI 141 > -V I MUM  < I ) 

ABEL  t-( DCLEE (141) -DELEE 1 1 ) ) /DEMON 
BOCL I •DCIFE  < I > -ADEL IBVIMUMI I ) 

ADCLI-2.0BADCLI 
•nri  i.'.  xiiflri  t 


CUR2-CUR2«EXP< -VINUMC 1 >4B2)B( < ADEL  1 - ADCLO )• « I .04VINUN<I IBB?* 

1  ♦  iBDfL)  BD£LO>*< VIMOM  I ) *CO€f T ( V 1 MUm I ) ) » * 

ASCA1 - <  £  TA< I41)-CTA( 1 ) ) /DEMON 
SSCAI  -CTA<  I  >  -ASCAHV1MUM(  I ) 

ASCAI-2.0BASCAI 
BSCA1 -2 . 0BB8CAI 

CUR3-CUR34CXPI -VINUM< I )BB2 ) • ( ( ASCA1 -ASCAO )•< 1 • 04VINUMI I ) BB2 l • 
1  <  BSCA 1 - BSCAO > • ( VINUMt I >  4C0EF  T  <  V1NUM< I » ) ) ) 

ADCLO- ADEL  I 
BDEL0-BDCL1 
A6C AO-ASC A 1 
BSCA0-BSCA1 
814  CONTINUE 
C 


CUR22-CUR2 

CUR33-CUR3 

If  (XI.LE.O.O)  OO  TO  817 

CUR2-<  2. OBSAVB ( SORT  < -X I /RATIO! 3 ) ) tCOCFT  < SORT ( -xl/RAT I0(3)>>* 
1  CUR2BEXP(XI /RAT  10(3) ) 

CUR3-I2. OBSAVB < SORT <-XI/RATIO< 4 > ) 4C0CF T < SORT ( -XI /RAT IG<4)) >) 
1  CUR3BC  XP<  X I /RAT I0<  4  > ) 

C 

817  CONTINUE 

IF ( If AULT (3) .EO. 0. 0)  CUR2-0.0 
If  < IFAUL T(4* .EO.O.O)  CUR3-0.0 
CS-RATEBCOCf I BCUR2BDEN4CS 
CB-RATCBC0CF1BCUR3BDCM4CB 
CS1 -CS14RATEBC0CF 1BCUR22BDCM 
CB1 -CB1 4RATEBC0CF 1BCUR33BDEH 
710  CONTINUE 
RETURN 
END 

SUBROUTINE  BECCL < XI .CSECEL .CSECE I > 

C 

CB*BBCBMtaBttSasaSBSSBStaBBSBSaSS*aBBBatasaB8B«BBBB8BB*BBSStaSBflB 

C PURPOSE 

C  TO  COMPUTE  SECONDARY  ELECTRONS  IMDUCED  DV  PROTONS  FOR  THE 

C  GUESS  FIELD 

C 

c 

C  EXTERNALS  NONE 

CBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB 

INTEGER  PERSEC. SCCIND.PERPAN.PANIND 

COMMON  PSAVE ( 144.10) rCSAUE (144*10) »PS£CTR< 144 ) .CSCCTR! 144 > • 

1 DCLEE (20) .DELMAX (144). EMAX (144). ETA< 20). DSCAT I (144). 

2B$CAT2< 144) .BSCAT 3 < 144) .PMO( 20.40) . 

1 ANG < 40 ) . CPHOMX ( 1 44 ) . SUNANO . ANOO . SOUNOL  < 20 . 40 ) . DOUND 1 < 20 • 40 ) . 
2AM0L  (20.40)  .VIH20.40).  1  CHECK  (20. 40)  .RATIO!  13)  »  I  ROOT!  144)  . 

3  If  AULT  <  14 )  .JLOCAL  ( 144  >.  ICON!  144  )  . 

1 VI ( 20) «EV<8) .NLEV.NTINES. ILEV*  T 1HINI 20) »  T I MAX <  20) . VINUM<20) . 
2A(144)*B(144).C(144).Di( 144) .DU! 144 ) . TW( 144 ) .0M( 144  I . 

3EV< 144) . TWOCOS( 700) . 

1  If LG. NPOINT, H.IGC0M.ISYH.IP0I8.N8CCT. NPEROD. NPEROD.  IDIMV. 
2GAMMA . DVDX ( 70.40 >. DVDV ( 70.48) . V < 144 ) .DCLTAX. DELTAr. 

3YS<  44.48) «XS( 64) . X8B<  70  > . 

1 VARBLE <  4 ) *  T  » DCLT . SBOUND.NOIH.POT ,M» J1 .RPI .RPI2.RPIMAP . BOTPI . 
2SAV . TEMPE 1 . TEMPC2 . DC MCI . DENE 2 . DENI  1 . DENI 2 . TEMPI 1 . TEMPI 2 . 

3  TEMPR  .LUN3.LUN4.LUN9.  LUNA.  LUN7.LUN8.  LUMP.  LliNlO. 

1 1DTL ( 144 ) . JDTL< 144 ) .PCR9CC< 144  > .SECINDI 144 ) ♦ I PANEL ( 144 ) . 
2PERPAM1 144.4 ) .PANXND( 144) . 

1CI0NI 144) .CELEC! 1 44 ). CSECI 144). CSECI! 144 ). CPHOTO! 144). 

2CPH0T 1 ( 144 ) . CBSCAT < 1 44 ) .CBSCA1 < 1 44 ) . SCCPRN! I 44 ) . SCCPR1 < 1 44 ) . 


3PM I ( 144) * COUNT  144) » 

1KASC, JOML. DPMI, NANO .RAD, PBOUND.OMCGA.ALPHA.SO.jp. IS. ECS. 

2CXPVI2( 20) .EFTVI (20) * IERROR. TE THIN. TETMAX. BETR1 .BCTA2.  JLESS. 

3L2 . CARRIV. CPM . X I .CSECEL . CSECE 1 . C8 .Cl . CB 1 .CB1 
CSECE t -0.0 
C8ECCL-0.0 
DO  710  JJ-1.2 
If < JJ.NC.l)  00  TO  711 
OAMMA-RATIO(O) 

TEMP I - TEMPI 1 
DEN-41.0 
RATE-RATIO! 7 ) 

00  TO  712 
711  CONTINUE 


TEMP I -TEMP I 2 
DEN-DEN 12/BCNI1 
RATE-RATIO! 12) 

712  CONTINUE 

IF< TEMPI. EO.O.O)  00  TO  710 


VZCRO-O.O 
If !XX .ME. 0.0) 

1  VZCRO— AMAX1 (O.O.-XI /GAMMABBORT <  ADS! XI /GAMMA ) X/ 

2  ABB ( X I /GAMMA ) ) 


DO  700  I-l.NLCV.ILCV 
BETA 1 -VI ( X )SS2 
BCTA2-BETAI -XI/OAMMA 
If (BETA2.LE.0.0)  00  TO  700 
MUM -MUM)  I 

VI NUH (NUN) -SORT (BCTA2) 

DCLEE! NUH )-DCLP( J) BBORT (0.001 BBC TA2BTEHP1 )/( 1 .04BCTA2S TEMPI/ 
1  CXNP! J) > 

700  CONTINUE 

If (NUH.EO. 1 )  00  TO  710 
VINUH(t) -VZCRO 
BCTA2-VIMUH! I )BB2 

DCLEE! 1 I-DELP! J)SS8RT (0 • 001BDETA2B  TEMPI >/( 1 . 04 BET A2B TEMPI/ 

I  EXMP! J) ) 

CUR 2-0.0 

COffi -EXP! -XI/OAMMA) /SO TP I 
ABCLO-.O 
B BEL 0—0.0 


BO  BIA  1-1 .NUNN! 

BE MOM— VI NUH ( 141 >-VINUH< I ) 

ABEL  I-< DCLEE!  1*1  )-BCLCC!  I  )  )/KNOH 
■DEL  I -DCLEE! I )-ADCLIBVINUM( I ) 

ADCL1-2.0BADCL I 
BBCLI-2.0BBDCLI 

CUR 2-CUR 24CXP< -VINUBM I >B82)B( ! ADEL 1 -ADCLO )B<  t • 44VINUN! I >BB2) 
I  ♦  ( DDCL 1 -BPCLO >B( VtNUH( I ) 4C0ETT  <  VINUH< I ) ) ) ) 

ABEL 0— ADEL 1 
BBCLO-DBCLl 
•14  CONTINUE 
CUR22-CUR2 

IF  (Xl.OT.O.O)  CUR2-! 2.0BDATB4D8RT ( -XI /RAT IO( 13  >  >4 


I  COCf T (SORT ! -Xl/RAT 10! I J) ) I > )BE*P( XI/RAT 10! I J) )BCUR2 
CSECEL -CSECEL  4C0f f I BCUR2SRATCB8CN 
CSECE 1 -CSECE 1 4C0FF  t  BCUR22SRA  TEBBCN 
710  CONTINUE 


END 

SUBROUTINE  POI ! IFL8.NPCR0D.N.NPCR0D.N.A.B.C. I B1NT.T. IERROR .Ml 

C 

c 


Dl 

Appendix  D:  Listing  of  plotting  program  used  with  CYLVIA 


tin  Li  Ci  C  CLI  CCCCCCCCCLTCCCLLCUCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCLCCCCCCCCCC 


I  )ROURA«  I  YPIOT 

*'  THIS  PfcOt.KAN  SOLVES  POISSIIN  S  EQUATION  OUTSIDE  A  C.  1RCLE  *  SPACECRAF  I  > 
i  UN  mHICH  I01INTIAL  IS  GIVEN  VS  ANCLE.  and  GFNCRATCS  a  CONTOUR  NAP 
I  U»  IHC  Rt SUL  I . 

I  itnPK* REFERENCE  TEMPERA  ruREM/OLi*,). 

RAP-SPACFCRAF  T  RADIUS  *MflERS>. 
t  ICE  on  *  l  MEANS  GfUMEfRY  IS  INF  1NITE  -CU  I  MM  I  CAL  . 

igeom-j  means  geometry  is  prolate  spheroidal. 

I  kpior  IS  PLOTTED  SPACECRAFT  RADIUS*  INLHCS  >  . 
t  StGMA*MAJOR-TO  MINOR-AXIS  RATIO  of  PROLATE  SPHEROID. 

t  SBOUNl^NAIURAL  COO  OF  'OUTER  GRID  ROOM  DART  RADIUS/SPACECRAf  T  RADIUS). 

<  IP  IGfflH-1. 

C  V  BOUND*  PO  T  f  N  f I  AC  AT  OUTER  B  DUN OAR  r  4  I N  AW). 

(  CNT  IS  THE  SAME  AS  THE  PARAMETER  SEP-  USED  BY  SUBROUTINE  CNTOUft'. 

L  ITS  UALUE  DETERMINES  WHETHER  AND  HON  CONTOURS  ARE  LABELLED. 

C  DANGO  IS  THE  ANGCFMN  DEGREES)  BETWEEN  THE  ORIGIN  OF  ANGLES  AND  J-l. 

C  M  IS  NUMBER  OF  UNKNOWNS* INTERIOR  GRID  NODES)  IN  I -D I RFC T 1 ON ( RAD I AL 
C  DIRECTION).  I.E..  IT  IS  THE  NUMBER  OF  NODES  MOT  INCLUDING  THE 
i.  SPACECRAFT  SURFACE  OR  THE  OUTER  GRID  BOONOART. 

i  N  IS  THE  NUMBER  OF  UNA  NOUNS  <  GR I D  POINTS)  IN  J-DIREC T ION! IN  ANGLE). 

A  SPOTS**)  MEANS  SURFACE  POTENTIAL  VALUES  ARC  READ  IN. 

.  k SPOTS- 1  MEANS  HALF  OF  THEN  ARE  READ  IN  AND  SYMMETRY  IS  USED 

C  10  GENERATE  THE  OTHER  HALF. 

>  ASPOTS  AT  LEAST  2  MEANS  THEY  ARC  GENERATED  BY  SUBROUTINE  SPOTS'. 

C  MODCHG-O  MEANS  ZERO  SPACE  CHARGE  IS  ASSUMED . MO DC MG- 1  MEANS  LINEAR 
C  SPACE  CHARGE  IS  ASSUMED. 

C  ISCALE-0  MEANS  RADIAL  SCALE  IS  LOGAN  I THNIC  IN  REAL  RADIUS. 

C  I  SCALE ■ 1  MEANS  RADIAL  SCALE  IS  PROPORTIONAL  TO  REAL  RADIUS. 

C  NCN  IS  THE  NUMBER  OF  POTENTIAL  VALUES  FOR  WHICH  EOUI POTENT  I AL 
C  CONTOURS  ARE  TO  BE  PLOTTED. 

C  CNT . . NCN)  ARE  POTENTIAL  VALUES  UN  XV)  FOR  WHICH  CONTOURS 

C  TO  BE  PLOTTED. 

C  TEHPtl' . DEM12  ARE  TEHPERATUttES  TIN  VOLTS)  AND  DENSITIES  TIN 

C  PARTICLES  PER  CUBIC  METER)  FOR  ELECTRONS  AND  IONS  IN  ASSUMED 
C  DOUBLE-MAXWELL  IAN  VELOCITY  DISTRIBUTIONS. 

C  PHI . . .  ARE  SURFACE  POTENTIAL  VALUCSTIM  KV>. 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

COMMON  /C TRACE/RATIO! 1 0) . JROOIE <  32> . I  TRACE / IFAUL T I J  0) » JLOCAE 110) 
COMMON/CPOIS/AUA)  .BT  44)  .C<  66)  .  TWOCOS* 1300)  .  I  FLO 
COMMON/POI SX/NPEROD. HPEROD » IDIMT 
COMMON/CPOISA/N.M.KSPOTS.MODCHG 
COMMON/CD  I V/YS <6*. 180 > .XST 70 > .SY< 6A. 181 > 

COMMON  /CORB/VARBLE  <  4 ) . T . DEL  T . 8 BOUND . FUNC  C  4  > .OKUTA ( 4  )  .M 
COMMON/PIE/  RPl.RPI2.RPIHAF.S0TP I, SAY 
COMMON/POT/OAMMA.DCL  TAX.DEL  TAY »  Y  T 1 80) . RAD.RPLOT 
C OMMOH/ BLX 1 / TEMPE 1 . TENPE2 . DENE 1 . DENE 2 . DENI 1 r DEN 1 2 . TEMPI I . TEHP 1 2 
l.TEHPR 

C OMMON/BLK 2/PHI < 180 > .DELPHI < 100 > .CN< 20) .NCN. I SCALE 

C 

REACTS. 40)  TEMPR.RAO 

40  FORMAT T2F 10.1) 

READ( 3.41)  IGEOM.RPLOT.SIOMA 

41  FORMA  TTI10.2F10.1) 

READ  <5.401  S BOUND . PBOUND 

READ < 3 .42 )  CNT. DANGO. H.N.K8P0T8.N0DCM8. JSCALC 

42  FORMAT  <2FA.2.9I4) 

C 

WRITE <  A . 30)  TEMPR.RAD* IOCOM.RPLOT .SIOMA.SBOUND.PBOUND.CNT .DANGO. 
1M.N.KSPOTS.MODCHG. I  SCALE 

SO  FORMAT! IX. 'CVPL0T'.//AX.'TEMPR'.7X. 'RAD' »3X. ' IOC ON' »3X» *RPLOT* . 
15X»* SIGMA'. 4X.SB0UND' »4X» ‘ PBOUND ' . 7X» 'CNT' .5X. 'DANGO'. 

27X. 'M'.7X.'N'.2X.' K8POTS' . 2X . ' MO DC HO' . 2X . ' I SCALE ' / 

31 X. 1P2E10.3. 110. 1PAE10. J.3IB//) 

READ* 3. 400)  NCN 

400  FORMAT  < 12) 

IFTNCN.NC.O)  READ* 3.401 )  < CROC) .K-l .NCN) 

401  FORMAT <0F 10. 7) 

IF (NCN.NC .0)  WRITE! A. 402)  < CN(K ) .*-1 »NCN) 

402  FORMAT! IX. 'POTENT I AC  CONTOURS  IN  XV'/! IX. 1 OF 10. 3/) > 

C 

C  MPEROD  IS  ALWAYS  ZERO.  0IVC8  PERIODIC  BOUNDARY  CONDITION  IN 
C  ANGLE  FOR  POI 8 SON -SOLVER . 

C 

NPCROD-O 

RP I -3. 141 3? 243338*7 

RPI2-2.0BRPI 

RP1HAF-0.3BRPI 

SOTP I -1.772433831 

I POI 9-0 

IFCQ-0 

SUNANO-O.O 

HCONS-IO.O 

SAT-1. O/SOTPI 

READ  *  3 • 300 )  TEMPE1 «  TCMPC2.DEMC1 .DCNE2 
300  FORMAT ( 4E1 1 .3) 

WRITE(A.AOO)  TCMPC1 .TEMPI 2. DENE 1 .DCNE2 
AOO  FORMAT < 8X. AHTEMPE1 . AX  » AMTEMPE2.4X .3HDCNE1 . 7X .3HDCNC2/3X . 1P4E12.3/ ) 
READ* 3.300 )  TEMPI 1 . TEMP 12. DENI 1 . 0CNI7 
WRITECA.AOl)  TEMPI1.TEMPI2.DCNI1.DCNI 2 
AO I  FORMAT ( BX » AMTENPI 1 » AX. ANTEMPI2.AX.3HDCMII . 7X.3HDENI2/3X. 1P4C12. 3/) 
ANOO- DANOOBRP I / 1 80 • 0 

C  •••  IF  THE  FIRST  DIMENSION  OF  THE  ARRAY  T8  IB  CHANGED.  IDIMT  MUST  BE 
C  CHANGED.  BBS 

C 

IDIMT-AA 

MP2-MF2 

I F  <  K SPOTS . EO . 0 )  READ*  3 . 200 )  < PHI <J> . J-l .N> 

200  FORMAT  *  AC  12.3) 

IF  <  X SPOT 9 . NE . 1 >  GO  TO  202 
NHACF-N/2 

RCA0C3.2OO)  <PHI<J).J-I»NHALF) 

DO  203  J-I.NHALF 
PHI <  N+ 1 - J  >  *PMI <  J) 

203  CONTINUE 
GO  TO  204 

202  IF (KSPQTS .G£ • 2  >  CALL  SPOT* 

204  WRI TE < A. A03 > 

AOJ  FORMA T T // 1 X. ' •••SURFACE  POTENTIALS  IN  KVBBB ' ) 

WRITE  < A. 201 >  *PHI<J)»J-I»N) 

201  FORMAT  < IX. IPI0CI2.S) 
if  < incoM.cn. i) 

1  CALL  GCNGRO*  TEMPI . TEMPI . DENS TE .SBOUNO. PBOUND 
1.H.NC0N9.AN00.IP0IS) 

If < IGCON.FO. 21 

ICAiL  P»01AM  TEMPI, SBOUNP. PBOUND. M. 

2  MCONS.ANGO. IPOIS. SIGMA. RMAX.ONCOA. ALPHA. SMAI .50) 

CALL  »ARIER«MP2.N) 

IF  *  NCN  .10.  i)  )  STOP 

CALL  PL  OPOT  <  SBOURD.PBOURO.M .R. SUNANO.CNT ) 

CALL  SADDl  C 

STOP 

»ND 


SUBkOUT  IN)  *4NGRP<  UHPl  .  TEMPI  .  I'l  NS  1 1  .  SBlIlJNl1 .  F  BOUND 
1 .H.HLUNS.ANGU. IPOIS) 

<  lMMWN'1  t  U1  ‘j'  A*  64  >  .Bl  66  )  fC*  66  ‘  .  T MUCUS*  1 300  I  •  I )  I  f> 

<  UMMUN  '  )  U  l  SX/NPC ROD.MPEROI1 »  I  DIM* 

I  UMMIIN/CTOISA/N.M.kSFOTS.MUDCHG 

l  UMMON  LDIV/YS*  64. 180) .XS<  70 i .ST <66> 181 ) 

LUMMON/PIC/  RPI . RP l 2  >Rp IHAf  .SOTPI .SAT 
I  OMMON'POI  'GAMMA .DLL  I AX . PC L  T A T . 1  *  1 80 ) .BAD*  NPl OT 

COMMON  /BLR  |  /  TEMPI  1  .  IEMPC  2>DENE  I  >  1>£  ME  2  .  DEM  I  1  .DENI2.  TEMP  1 1  ,  1 1  MP  I  2 
1  .  I)  Mf  R 

(.OMMON/BLK2/PH1  <  180)  .DELPHI  *  I  80  >  >CN(  20  )  .NCN.  I  SLALC 

IF  *  I) LG. EO. J  >00  10  100 

KLMDA*0. 

IF*  HUDuHG . £  0 . 0  >  GO  TO  212 

DEBTE-6V. .SORT* TE MPR» I .602C -  I V/< DENI 1 • I . 581E -23) ) 

RLMDA*  *  RAD/DC  BYE >•»/• *  DENE l /TtMPE 1 1 DENC2/ IEMPC 2.DE Ml  1 / TEMP  I  1  ♦ 

I  DCNI2/TCMPI2)  •IEMPR/DCNII 

RAt 10*1 .O/SORTI RLMDA) 


WRITE<6.211>  RAtlO 

211  FORMAT  * /l X. 'DEBYE  LENGTH  /  SPACECRAFT  RADIUS  •  1PE10.3//) 

212  DELTAX-SBOUNO/  f  LOA  T  <  HF 1 ) 

DEL TAY-2.*RPI/  FL  OAtiH) 

SYX-*  DELTA //ML  TA<>*«2 

C 

c  GENERATE  GRID  POINTS.  COEFFICIENTS  AND  RHS  OF  EOUATION  U.ME.l) 

C 

100  MM1-M-1 

DO  200  J-I.N 

Y<  J) *FLOA  T<  J-I ) IDCL TAYSANGO 
IF<Y< J).GT,RPI2)  Y< J)-Y< J)-RPI2 
YS<M» J)--SYX»P80UND 
DO  210  1 -2.MM1 

ts< I » J)-0« 

210  CONTINUE 
200  CONTINUE 

TLMDA-RlNDAtDCL TAY»*2 
DO  220  1-1. N 
XS*I>-  FLOAT < I ) •DCLTAX 
A< I )-SYX 

B< I )- -2 . BSYX-TLMDAB  EXP(2-«XS*I)> 

C  < I >-SYX 
220  CONTINUE 
A<l)-0. 

C<M>*0. 

C 

C  CALCULATION  OF  RHS  OF  EOUATION  FOR  I-l 
C 

300  DO  230  J-l.N 

YS< l.J)--SYX»PHI< J) 

230  CONTINUE 

CALL  POIS (IFLO.NPCROD.N. MPEROD. M. A. B.C . IDIMY . Y8. IERROR. TwOCOB) 
WRITE!*. 1001 >  TERROR 

1001  FORMAT! IX.  THE  ERROR  FLAO  IS  '.IS) 

WRITE (A. 1002) 

1002  FORMAT! IX. '•••POTENTIAL  PROFILE*** ' / ) 

DO  130  J-l.N 

WR I TE  <  A. 1 20)  J.<rS<t*J).I-l.M> 

120  FORMAT < 1 X • 2HJ- .13./! 1X.1P13E10.3) ) 

130  CONTINUE 
RETURN 
END 

SUBROUTINE  PROLAT  < TEMPI .SBOUND. PBOUND. 

1  H. MCONS.ANGO. IPOIS. SIOMA.RMAX .OMEGA. ALPHA. SMAX. SO) 

C 

CBBBBBBBBBBBBBBBBBBBBBBBBtBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB* 

C  PURPOSE 

C  TO  GENERATE  ARRAY  OF  ORID  POINTS  AND  TO  COMPUTE  THE  COEFFICIENTS 

C  OF  THE  POISSON  EOUATION  IN  THE  CASE  OF  A  PROLATE  SPHEROID. 

C 

C  DESCRIPTION  OF  THE  VARIABLES 

C  RMAX  IS  OUTER  RADIUS  AT  WHICH  POTENTIAL  IS  ASSUMED  TO  DE  ZERO. 

C  SIGMA  IS  POLAR  AXIS  LENOTH  TO  EQUATORIAL  AXIS  LENGTH. 


COHHON/CPO I S/A < AA > . B < *4 > » C < *4 > * TWOCOS < 1 300 ) . IFLO 
COMMON/POI SX/NPEROD. MPEROD. IDIMT 
COMMON/CPO 1 8A/N . M , K  SPOT  S . MO DC  HO 
COMMON/CD IV/ VS <AA» 180) »X0! 70) .9Y( *4. 1*1 ) 

COMMON/PIE/  RPI .RPI2.RPIHAF . SOTP I .SAT 
COMMON/POT /GAMMA. DCLTAX .DELTAT • T< 100 ) .RAD.RPLOT 
COMMON/ BLk 1 / TEMPC 1 TCMPE 2 . DENE 1 » DENE 2 . DEM 1 1 . OEM 1 2 *  TEMP 1 1  *  TEMP  1 2 
l.TCMPR 

COMMON/BLX2/PHI! ISO). DELPHI ( 180) .CM! 20) .NCN. I SCALE 
RLMDA -0.0 

PCLTAY-RP 1 2/FLOAT  <  N  > 

TAUP-0 . SBALOO! < SIOMAF 1 . 0 ) / 1 8 IONA- 1 . 0 ) > 

ALPHA-1 .0/8INH!TAUP) 

ONEGA -COSH* TAUP) 

BETA-EXP! TAUP) 

SO-ALOO!  1BCTAM  »0>/!BCTA-l  .0) ) 

SO- -SO 

THEY A- RMAX/ ALPHA 

TAUMAX-ALOO! TMETA4SORT! THETABB24I .0) ) 

PC  T  A— E  XP  <  T  AUMAX ) 

SMAX— AL 00! < BETA* I .0)/!BETA-J .0) ) 

SMAX— BMAX 
SBOUND-BMAX 

DEL TAX- ! SMAX -SO ) /FLOAT ( N4 I ) 

SYX-<DCL TAY/DELTAX )BB2 

MM1-M-I 

DO  200  J-l.N 

Y< J)-FLOAT! J-l )*BCL  TAYFANOO 
If  !T< J) «0C .RPI2)  TCJ)-Y< JI-ANOO 
If  !V< J) »LT .0.0)  Y ! J) -T ! J) 4RPI 2 
YS < N . J ) — SYXtPBOUNB 
DO  210  I-2.MMI 
YS! I . J  > -0.0 
210  CONTINUE 
200  CONTINUE 
MP2-NF2 
DO  220  I-l.N 
X8! I ) -FLOAT If) •DEL  TAX ♦ SO 
BETA-EXP! -IS!  I)  ) 

TAO-ALOG!  (BEIAFI  .OI/IMTA-  1.0)) 

PSI-I .0/* COSH! TAU) )*«2 
A! I )-STX*PSI 
B! I ) -STXiPSI 
C! I ) -SYXBPSI 
220  CONTINUE 
All  1*0.0 
C<N>-0.0 
DO  230  J-I.N 
VS! I* J)--SYX*PMI! J) 

230  C OR TPRJC 

CM  $  PMIAMFI  n.NrFRIft.N.MFftflh.H.A.A.r.  »«»■*.*«.  ii  »»n».  iy*w*«  * 


D2 


UK  I  If  I  •  „«’DtL  I  At  *SHAX. SO. OMEGA 

AOO  FOKKA1  )*■'  l*.  IPEIO.3)  » 

M- <  Of  l.  TAOOCL  TAT  >/<  l  DFI  lA«mi  lATJXHCQMS) 

Kt TURN 
END 

>UBROUT  INt  PLUPm  (SBOUND.f  BUOMD.H.Nf OIMT  .SUNANG.CMTI 


'■  I'OTENTIAL  CON I  OURS  AP3UMD  A  SPACk  LRAf  T  UK  DC  R  HAGMC  TOSPMERIC 
l  CONDITIONS. 

L 

D  I  HE  «S  1  ON  X  <  /O  I 
DIMENSION  TT« 181 > 

CONMON/CDIV/VS* 44* 180>.XS< 70) . St <66. 181 ) 

COMHOM/PIE/KFI  .BPJ2.RP1HAF  .SOlPl  .SAY 
COMMON /POT /GAMMA. DEL IAX.UCI  I  AY. Y ( 1801 .RAD.RPLOT 
COMMON  /  BLR  .’/PHI  <  ISO > .DELPHI < 160 >  .CN<  20)  .NCN.  I SCALE 
HAIA  K AC / 1 000. / 

RP-RPLOT 
N I -MPOINT ♦ 1 
MP2-H92 


HP  1 -Mil 

DEL  TAX-SBOUND/FLOAT  <  MP2-  1  ) 

L 

C  RELOCATE  ELEMENTS  OF  THE  ARRAYS  XS  AND  YS. 


DO  300  J-l, MPOINT 
YS  ( HP  2 .  J )  -P BOOM04F rtC 
DO  310  1-2, MPI 
1PA-MP2-I 
IPB-IPAtt 

YS( IPB. J1-YS< IPA  » J>  BFAC 
3V0  CONTINUE 

TS(  WJI-PHIt  J>«FAC 
300  CONTINUE 

DO  320  1-2.MP2 
320  XS< I >-DCLTax*FLOAT( I  -  1 > 

IF(D€LTAX/DELTAY.LT. 1 .6)  00  TO  99 
C 

C  GRID  CELLS  ARE  TOO  ELONGATED  RADIALLY.  FIX  THIS  USlNO  INTERPOLATION. 

C 

HPl-HINO(HPlS2«44> 

HP2-HP141 
M-MPJ -I 
MH1-M-1 
HN2-H-2 

DELTAX-OCL TAX/2.0 
00  91  I-1.MP2.2 
IV-HP24I-I 
KV-< IU91 >/2 
DO  91  J-l.NPOlNl 

91  YS< IV. J>-YS<KV. J) 

DO  92  J-l rNPOINT 

YS<2. J)-(3.0*YS< 1, J>94.0«VB<3. J>-YS<3. J>  >/B.O 

YS  <  HP  1  •  J  )  ■  (  3  .OATS  < HP2. J)  94 • Ot YS  <  H, J ) - YS  <  HH2 . J )  >/8.0 

DO  92  I-4.MM1 ,2 

92  YS< !.JI«(9.0t< YS<  I-l»  J>9V8<l9l.J)>-YS<I-3.J>-YS<  1 43 , J)  )  /  l  A .  0 
DO  93  I-1.NP2 

93  XS<  I > "DEL TAX AFLOAT <1-11 
UR I TC  <  A • 90 )  M 

90  FORMAT(//IX,  RADIAL  ORID  INTERVAL  HALVED.  HEU  N  -'.13! 

C 

C  SET  UP  EXPANDED  ARRAY  OF  POTENTIAL  VALUES  FOR  USE  BY  PLOTTER. 


99  00  I  I-I.NP2 

SY< I »N1 )-V$( 1,1) 
DO  1  JM.NPOIMT 
SY< I. J)-Y8< I.J) 

1  CONTINUE 


c 

C  GENERATE  ORID 

C 


C 


C 

c 

c 


DO  2  J-I.NPOINT 
YY( J1*T< J) 

2  CONTINUE 

ryiNi)-RRi29r<i» 

DO  3  I -l  «  HP  2 

IF  < I SCALE .£0.0  >  XII >-RPt< 1 . 04FL0AT < I -1 )• DEL TAX 1 
IF  < I  SC ALE .CO.  1  )  X<  I  > -RPSEXPI FLOAT  < I -1 ) S DEL TAX > 

3  CONTINUE 

INITIALIZE  PLOTTER 


CALL  START 

CALL  SYHSQLLO. 0.10.3.0. 19* 'PLEASE  MOUNT  BLACK  FINE  POINT  PEN  IN  I' 
1 .270 -0.38) 

CALL  PLOT IIiOiOiOi"!) 

CALL  PLOT (S. 0.3*3, -31 

C 

C  Sts  IF  THE  FIRST  DIMENSION  OF  THE  ARRAY  ST  IS  CHANGED.  IPX  MUST  SC 
C  CHANGED.  SSS 

C 


IDX-44 

DO  lOO  1*1 .NCN 
CN(I)*CM(  DSFAC 

CALL  CNTOUR  <  X  »HPZ« TY.NI , BY , IDX ,CN( I > ,CNT »CN< Ill 
IOO  CONTINUE 


AROHCPoAMINJ 1XTNP2>*PCLTAX»*.3I 
S1ZI-1.0 

CALL  PLOT* AROHES. 0.0*3! 

CALL  PLOT! AR0HEB40. 379S8IZE,0.3SSf ZE.2! 
CALL  PLOT  I AR0HES90. 3TSSSIZE  *0 . 23S81ZE  »2> 
CALL  PLOT IAR0MEB40. 734S I ZE .0. 23SSIZC , 2) 
CALL  PLOT! AROMC 890. Z388IZE  *-0.23SSIZC,2> 
CALL  PLOT (AROHED90. 3 23* SIZE » -0. 23SSIZI ,2) 
CALL  PLOT* AR0HEB40. 373SSIZE » -O . SSSIZE . 2> 
CALL  PL0T(AROHED.0.0.2l 


CALL  BYHBOL<AROHED-0.3*8IZE»0.423S8IZC»0.238BtZE* '8UNLI8NT' »< 
CALL  SYMBOL* -0. 73SSIZC.0. I23SSIZC .0. 23S9IZE.' SPACE-' .0.0.41 
CALL  SYNSOL  < -0. 423SSIZC.-0. 379SSIZC ,0. 23SSIZE. 'CRAFT ' .0.0*3) 

CALL  CIRCL (RP.O. 0.0.0. ISO. O.RP.RP.O, 01 


DO  102  1*1. MP2 
DO  102  3* I .NPOINT 
fS« I.J) ■  YS* I* JI/FAC 
102  CONTINUE 
ftf  TURN 
tNP 

SUBROUTINE  IOURT (XR.YR.XS.YS) 

RAOR*YR 

RAOS-YS 

YR- XRSSINI RAOR  > 
IM*XRtf09<RADMI 
YS-XSSSIN(RADS) 
I3-«S4C0S<RAPSI 
RETURN 


•  MM 


SUBROUTINE  BARIER*NP2.N) 

C 


C  PURPOSE 

C  TO  COMPUTE  HEIGHT  AND  RADIAl  DISTANCE  OF  POTENIIAL  PARRIIRS 

C  BY  FITTING  A  PARABOLA. 

C  DESCRIPTION  OF  THE  VARIABLES 

C  (BAR  AND  Y  BAR  ARE  BARRIER  LOCATION  AND  HE  I OH I 

C  EXTERNALS-  NONE 

CllllimmmMMMIIMIIIIMUMIIIMtllMIMMIIIItfMIMimtll 

COMHON/CDIV/f S<44. ISO) .  XS*  70 >,S VISA* 181 ) 

COMMON /P IE/  RPI .RPI2.RP1HAF . SOTPI .SAY 

COMMON /PO T /GAMMA . DEL T Ax . DEL T A Y . Y ( I  BO ) . RAD . RPL OT 

DIMENSION  BKADP (180). PRADN < ISO) .BDCOP* ISO) .BDEONI ISO) .DPOTP* ISO) > 
1 PPO INI  180). IP< 180), IN« ISO). JPC ISO). JN< ISO) 

NP1*NP2-1 

NPS-0 

NNB-O 

DO  400  J-l.N 

IF  <YS*l.J).GT,yS<NP?.JMOO  TO  403 
YUNIN-VSI 1»J> 

I RN IN- 1 

YUMAX*YS<HP2. J» 

IRMAX-MP2 
00  TO  403 
40S  YUMAX- YS  < I.J) 

IRNAX-1 

YUNIN*YS(MP2. J» 

I RM I N-MP2 

403  DO  410  1*2, HPI 

IF  <  YS < I . J ) . GT . YUMAX  >  IRMAX-I 
I F  <  Y'J  ■  I.J>  .GT  .  YUMAX )  YUMAX- YS  <  I  *  J  > 

IF  I YS* I.J).LT . YUM IN >  IRHIN-1 
IF*  YS*  I.  J7.LT.  VUHIH)  YUHIN-YBUf  J) 

420  COMUMU€ 

IF( IRMAS. EO.l. AND. IRMIN.EO .MP2 >00  TO  400 
I F  < IRMAX.E0.HP2. AND. IRMIN.EO. I >00  TO  400 
C 

C  A  BARRIER  HAS  BEEN  FOUND  AT  ANGLE  J. 

C 

DO  400  fc-1.2 
GO  T0I40I .402) .K 

401  IF  (IRMAX.EO. I . OR. 1RHAX ,E0 .HP2 >GO  TO  400 
I- IRMA X 

NPB-MPB41 
00  TO  4S0 

402  IF< IRMIN.EO. 1 .OR. IRMIN.EO. HP2 >  GO  TO  400 
I-IRMIN 

NMB-MND41 

C 

C  CALCULATION  OF  HEIONT  AND  RADIAL  LOCATION  OF  POTENTIAL  PARRIER  BY 
C  FITTING  A  PARABOLA  TO  THREE  POINTS 

C 

4S0  DIHI-*  Y8< I » J)-Y8< 1-1 .J) )/ DEL TAX 
DIPI-<YS<I41.J)-YS<I.J) > /DEL  TAX 
APARXDIPI-DIH!  >/(  2.  SBELTAX  > 

PPAR-DIPI -APARB <X3< I > 9XSII 41)1 
CPAR*Y8< I.J) -APARSX8( l ) SS2- SPARS XS( I > 

Xi—  SPAR/  <  2 .  SAPAR  ) 

YB-APARSXBSS24BPARSXB4CPAR 
GO  TO  <411 f 412) ,K 

411  IP  <  NPB 1*1 
JP  <  MPB ) *J 

BRAOP  <  NPB 1 *EXP<  XSI 
BDCOP<NPB)*Y <  JIS1B0.0/RPI 
BP0TPCNPPI-Y8 
GO  TO  400 

412  INC  HMD  1*1 
JM<  NNB>*J 

BRADN<  NNB )*EXP<  XB 1 
■B£ON(NNB)*Y< J)BIS0.0/RP1 
BPOTN(NNB)-YB 
400  CONTINUE 
C 

IF(NPB.EQ.O)  00  TO  421 
URirC<4#4?2! 

422  FORMAT! //IX, 'POSITIVE  BARRIERS' > 

URITE(S.429>  <IP(L).JP<L) , BRADPCL > . BDE9P(L ) •8P0TPLL 1 »L*1 ,  NPB) 

429  FORNAT (/1X.3<4X,'I'.3X.'J',3X» ’ RA8/RS '  » IX, ' DC SNEED ' , 1 X , 

I 'HEIOHT  <KV) '  >/* IX ,3< 2I4.0P2F8. 3. 1 PE 12. 3) I ) 

421  IF (NNB. CO. 01  00  TO  423 
URIT£<4*424! 

424  FORMAT (//IX. 'NEGATIVE  BARRIERS' 1 

UR I TC<4«  429)  < INTI ) » JN*L I »  DR ABN < L ) .BBESNCL ) . SPOTNCL 1 ,L«I ,  NNF) 

C 

423  RETURN 
END 

SUBROUTINE  BABBLE 

C  PURPOSE  IS  TO  IDENTIFY  SADDLE  POINTS 

C 

COMMON/ CPC ISA/N.N.KSPOTS, NO DCHO 

cortrtON/CDiv/rsi **,iso> .xs< 7o> ,b y * 44,1*1 > 

COMMON/PIC/  RPI. RPI2.RPIMAF. SOTPI, SAY 
COMMON/POT /OAMNA, BEL TAX, SCLTAY,Y( ISO ) .RAB.RPLOT 
C0NN0N/BLK2/PHI ( ISO), DELPHI ( ISO) ,CN( 20 ) • NCN, I SCALE 
DIMENSION  SX(A4,IS0>.DVSR< ISO > , BVSV < ISO > 

C 

c 

BO  100  J*1,N 

SUSRC  J)*< -YSL 3, J)44.08Y8<  2* J)-3.0SPH1 <  J) >/ (2.0SSEL TAX BRAS) 

JP-J41 

JN>I 

IF(JP.OT.N)  JP-| 

IF*JM.EQ.O>  JM*N 

OUST  I J I •« PHI < JP > -PHI < JN > t f < » . OSBEL TATSRAS) 

100  CONTINUE 
C 

URITE<*,*00> 

400  FORMAT! ///IX, 'RASIAL  ELECTRIC  FICLS  AT  THE  SURFACE  <KV/NETERI‘> 
UR I TC  <  4 , 700 )  <BVBR( J). J-l.N) 

200  FORMAT ( IOL IX. IPC 12.3)) 

URITC(A.SOO) 

000  FORMAT ( ///|X, ' TAMBENTIAL  ELECTRIC  FIELD  AT  THE  SURFACE ' , 

I'  (SV/NETER)') 

UNITE**, 700)  <  BVDV  <  J) , J-l  .Nl 
UNITE (4.R90) 

830  FORMAT*///! 


MPI -M4 I 
MP2-M92 
DO  I  J*|.N 
DO  1  1*2. MP2 
SX< 1*31 *499. 

I  CONTINUE 

C 

r. 

DO  2  J-l.N 
DO  2  1*2. MPI 

4  P*LTS»14I.J»  Y*<(-|,JI |/( 2.0SDIL  TAX  » 
JP1-J9I 

ip,  i.ra.Mt  91.1 


D3 


If  (  J.FtJ.l  >  JMt*« 

H"’Sl  1  » Jf  l  >-VS<  I  » JA1  )  >/(!,OIKl  TATI 

H-  <  »S i  I  ♦  1 .  J » - ? .  04V S<  I  .  J  i  P  YS4  |  -  |  ,  J  >  ) /  C  DEL  TAXSDCLIAX  » 

01  -l  TSI  I  »  Jfl  >  2.0SYS4  I  .  JM»S(  I  .  JA1  >  >/(DCLTAT*DCLTAT  > 
f»-i  ts<  I  PI.  JP1  1'TSt  II  •  JPI  >~T94  1*1.  JMt  IPVSlI-l.JNIIl/ 
l  lD€LTAX*DCLTA»»4.0> 

7  ox-#*r 

c 

OEn^pxsov-oxopy 

IF4DCN.NE.O.OI  Sxt  I  . J>-4Q«P1-PaOY>/DCN 
If  tlt£N.MC.0.4>>  S»l I . J>-lP«Ol-04PX>/DEN 

If  4  ADS  4  SX«  I  •  J  >  )  .  L I  •  ML  f  AX  . AND. A0S4  ST  <I»J)).LT.  DCL  TAV  I 
I  00  TO  2 

SXI f, J>-PPP, 

C 

2  CONTINUE 

C 

C  IF  THERE  IS  NO  MMU  POINT. RE TURN 

C 

ICM»0 

DO  10  J-I.N 
DO  10  1-2. NPt 

If 4SXI I . J) .EO.PPP.O)  ICW-ICMP1 

10  CONTINUE 
lf4ICM.NE.01  00  TO  11 
WRITC44.POOI 

POO  fOR*AT41X.  NO  MMU  POINT  POUNO'l 
RETURN 

C 

C  FIND  ACCURATE  LOCATION  OT  MMU  POINTS 

C 

11  DO  20  J-l.N 
JPMJ1I 

IF4J.£0.H>  jp|a| 

DO  20  I  *  I  f  NPt 

C 

C  CHECK  IP  A  SADDLE  POINT  NAS  DEEM  OBSERVED  IN  THE  SHIS  CELL  AMM 
C  AND  TO  THE  RIGHT  OF  THE  POINT 4 1 .  J  > . 

C 

ANOT 1*0.0 
AHO TV *0.0 
AN-0.0 
JN1AJ-I 

If4I.EG.1T  SO  TO  22 

If <SX( I. JT.EO. FTP. O. OR. SX<I.JT.LT. 0.0. OR. DT4I.JT.lt. 0.0) 

1  00  TO  21 

AN-ANP1.0 

AMYX-ANOYXPDXI  I»  J> 

AMVT*ANOTT4DT<  I  *  J> 

21  If  4  SXI  I.  JP1).  CO.  PPP.O. OR. DX4I.JFD.lt. 0.0. OR. ST4 1*  JFll. ST. 0.0) 
1  00  TO  22 

AMYY*AMYYPSY4  I.  JP1 IPSELTAY 

C 

22  IP4I.C0.NFD  SO  TO  24 

IF4SX4 IPS . J1 .ER.0PP.0.QR.SX4 IPt« Jl .DT. 0.0. OR. ST 4 IP1* JI.LT.0.01 
I  SO  TO  23 
ANMNOI.O 

AMTX*AMVXPSX4IP1.J)PDELTAX 

AMYV-AMVVPSY!1P1.J> 

23  IF4SX4IPS.JP1! .EO. PPP.0.0R.SK4 IPS . JFt ). ST. 0.0. OS 
AO.  01  00  TO  24 

ANorxMNorxpsxriPi.jFi  tpdel  tax 

AMVT-AMTTPSY4  f  Pt .  JFS  IPDELTAY 

24  CONTINUE 

If 4 AN. EO. 0.01  SO  TO  20 
AXS-AMVX/AN 
AYS-AMYY/AN 
AAXX-AXSPXSII) 

AAYT-AYSPV4J1 
XDS-AX8/DELTAX 
V  RS*AVS/DBL  TRY 

SADFOT-4 VST IP». JISKSOPTSII. J1D4 I .O-XDOl 104 I.O-VS 
1 P  4  YS  4 1 P I .  JFD  DXDOPYS  « I .  JFt  >  D  <  t .  O-XSO 1 1SVD0 


•ST4 IPI.JFI 1 .ST . 


AVYDIO 

URITE44.40D  I.J.l 
*01  FORMAT 4 IX.  ' SADDLE  POINT  DETECTED  IN  CELL' 
AFP. 3.'  DE DREED*  '»F7.3»'  POTENTIAL <KV>*  • 
D*  MURDER  OF  DETECTIONS  ' »SFF4. I 1 
IFTAN.LT. 4. 01  SO  TO  20 
If 4I0CALS.E0.0)  DP RAD  RPLOTt 4 1 .0PAAXX1 
IfTISCALt.EO.il  SFRAO  EPLOTSEXPCAAXKl 
SADX-SFRAD«COS4AArri 
SASY*SFRAS4S IN  T AAY Y 1 
If  4 ASST EASY l.OT. 9. 201  00  TO  20 
If  TA00TSA0X1 «0T .0.01  00  TO  20 
CALL  SYROOLT SABS. SAOV. 0.20* 4. 49.0»0 1 
20  COR T I RUE 
CALL  f INI9M 
RETURN 


THIS  SUSROUTIME  BETS  THE  SURFACE  POTENTIAL  VALUES  PNITI.2*. 
IN  A  KM  INED  DEPEND  I  NS  ON  TM  VALUE  OF  K  SPOTS. 

CONMN/CPOISA/N.N.KBPOTS. MOOTS 

C0NMN/BLR2/FMI T  ISO)  .BELFNIT1S0I.CNT20I.NCN*  I SCALE 
IF4KBFOTS.OT.21  00  TO  POO 

lf4N.NE.100>  00  TO  POO 
SO  II  J*1.N 
PHI  4  Jl—O.Of 

If  4  J.OE.  I  .ANO.  J.Lf.t)  PHI4J1  — 0.00 
If T J.0E.42.AN0. J.LE.93I  Ptt|<  j|*-O.S0 
If 4J.OE.P1.ANO.J.LE.POI  PNtIJl— 0.09 
If 4 J.OE. 120. ANO. J. LI. IJOl  PHIIJI— 0.09 
II  CONTINUE 
RETURN 

POO  KNIFE f*»POS>  N.RSFOTS 

POt  FORNATf  IX*  'SPOTS  CALLES  INCORRECTLY.  N  •  '.13* 

A’  X SPOTS  •  '131 
RETURN 
f  NS 
CHS* 


El 

Appendix  E:  Listing  of  XYCIC 


F  I N4 

♦HWi.U  MAI  .0* 

t KUGftAA  UfcJC I li. |}0* 

i  THIS  IS  »MC  MAIN  ROUT  INC  f  Oft  IHK  ONJLCt  MFlNIIIOM  SECTION 

i  OF  *»cic  . 


4  IHWUN  ACMA1/KC42340)  .TO<?SX).IG<  23*0.4 >.  ILiSS.SS). 

I ICNt  5J.5J  > • ICA<  S2'S2) 

COMMON  CM* SH  IH4MIN.  JMSNIN.IHSNMX.JMSMNX.  |NO»JHOttli|l 
COMMON  CMS  1 1  'MNEfTl  IO>.NNI<  I  0  >  .NNJI  10  >  .  NUU  rtA  (  IO>.ftSl  I0»* 
IRElll>>.ftAM<  tOt.KMMt  l©>  iNMl  10>  .MMMI  lO) 

COMMON/CNS I  7/ MC SMAX  . HAVNOO.NAXELC  .MOOOUT  . N0DIN. RELOUT  , 
IftCLIN. NODINS 
COMMON/CONN/NCONMI  I0.4.4I 

C0IW04  CfttF  -  4.  NAN.  LAND (  32>.LMIX<  32 >  .LNA74J2) 

lOHMOM/CSUN/ SAMGL.MSUM44 J2>.XSUNB(32).YSUN*4 J?> .A0UNS4 *4 > . 

1  MSUNR 4  1  70  >  « MSUM 

common/ lOOAf/LUM.LU.i tracs 

COMMON '  01 J 1  / MOOJC  r  . Ntcoo 4  3 >  .  1  ft? ACC  4 44 »  .  JOT ACE 4 *4  >  » I SSC84 44  »  t 
I VSSE  G<  *4  )>USf04t4)t  TEM84  44  >  »  I  Si.  ft  4  44  )  .  I UCC  ( 44  *  »  8LR0E04  44  )  t 
’COO* 13 i .CGOYtS) 

COMMON.  OOJ2/*«F4lX>.TSM4IX).XCR4 1 29 1 . YCr 4 1 20 > .N»F4 1 20 > , 
INfftl |?0».NMF< J2).NFAT<3>.MAI*AT 
COMMON/ F-30LV/  1SYN.  (ftOlkS.  I  OFO T  . UK OY  . CRO|  0 
COMMON /ftft  l/*»|,Fl,MFU.*IMOfl.Mf  ,2 

COMMON/ OLRl/XOl  I3.4>.VStlS.*).XEll3.4>.YE(  I  3 .4  >  .  TV  4  1 3.  7  >  . 

IT  TNI  4 I3.5> • YYN2I 13.3) 

COMMON/ R ft?/ OUT! I  IS). MJT 24  13) <  OUF  34 13)  .BUF44 13) 

COHMON/OLRS/OUTSl  I3>.  01*4113). 0UF71 13).  OUFOiX>.OUFft<  10) 

COMMON/M.K 4/ 1 OUT 1 4  73 >  .  I OUFjl  73 )  .  I  OUT 3 1 23)  .  I OUT ft 4  23 > 

COMMON/  0LR3/LR4  4. 4  >>LT(3.4)«RX(ft>«RY(ft)  t  KM<  4  >  *NCO<  4.4). 
ILO.4t3.ft) 

COMMON/OLK4/XO.  TO. MOT  .Mt.DMt  »DMj.iMJ.PM4.  DM3 
COMMON/ M.K7/M0* 10. JO. Ntr.KO.LO. NCI. MC2.MC3.IMM.JHM 
COMMON/ OLRO/MO.M . I BOM! • 1DUM2. 1DUN3. IDUM4. I  BUMS. IDUM4 
COMMON/ OLRft/Ill. 112.  US.  114.  1 13.  114.  1 17.  1 10.  lift.  1110 
DIMENSION  MMMC43) 

04 T 4  M4HC/ 2*41  D.2M4I  .2*41  / 

MMITK 4 L UN. ftftft) 

ftft*  FOftMftf  (////!  91  .'••■‘XTCIC*  SATELLITE  OINULAT  IOM«M  *  ) 

CALL  EXCClO.NAME) 


•TOO 
ENO 

MOCK  0474 

C0MM0N/CHC«M/IM«M1N.  JMOMIM.  IMOMHXr  JHOMMX.IMO.  JMO.0X.0T 
CONMON/CNOT I /HNEOT  4  10)  *NNI  4101  .NMJt  101  .NQUTCOt  10*  till  10)  . 
tRC<IO).RAM(10).RANA(tO>.NOU(IO).NOUA( 10) 

C0MH0M/CM0T2/MSMAX  .NAXNOO.NAXELI .NOOOUT  .NOOIN.KCLOUT  . 
IKELIN.NO0INO 
COMMON/CONN/NCONN4 10.4.4) 

N/CftCF /LMNN.LNN04  12 )  .(.MM 1 4  12 )  .LNMT 4  12 1 
N/CSUM/OANOL  .  MUM  4  32  )  ,  I0UMO  4  12  »  ,  TMJNO  4  S3  )  .  40UN04  44  )  . 

Rl  120) .NOUN 
N/1004T/LUN.LU. 1 TR4CI 
COMMON/O0JI  /NO0 JC T .N0C004 3 >  .  IOFACS  4 44  » .  JSTACE 444 )  .  1SM04 44 )  . 
IVSKOl44>.X<KO<44).YCK04*4>.IflLRI44>.IVEC<44>.OLRKO<44>. 
2COO* « 3 )  .COOT 4 3) 

COHHOM/O0J2/  1X4 1 20 ).  tor  4 1 30  >.  nr  1 1  m  >.  ter  <»  20  >.  noth  20 ) . 

I NC)  4  1 30  )  ♦  NNR  4 12  >  .  NMI 4  3 1  .HAXRAT 
CUMOM/ROOL V/IS7N.  IPOtllt  lOROT .RM07  .CROIO 
COMMOM/ftft  1  /NR  1 .01  .NT  I  I.R  1 2.0X1  •  OOR 12 

C0MMON/XKI/«04l3.4>*T04l3.4).X<l».4)*71lia*4).TT4»».7>. 

1 7 TNI  4 19.3) »  TTN2! 13.9) 

COMMON/ M 2/ OUT! 4 t 3 ) . OUT 11 | 9 ) . OUT 94 19 » • OUT 4 ( I 3 > 

COMMON/0LKS7 OUTS 1 1 9 )  . OUT 4 ( 1 9 > . OUT 7 4  1 9 1 . OUT 04 20 1 . SUFft 4 M ) 
COMMON/XK4/10WFI4  39)  .  10UT 24  33)  .  I0LNS4  73)  .  IOUF44  23) 
COMMOM/OLR3/VR4  4.4 ) »LT(9>4) »RX4 ft I .RY Ift  > .RN<  4 1 .NCB4  4.4 ) . 

1LCL4 13. ft) 

CONNQN/OLR4/XO. Tft.MOT.MO. BMI .0N3. ONI.  OM4.0M9 
COMMON/ OL ft 7/NO. 10. JO.XT . KO.LO.MC I .NC2.NC]. INN. JNN 
COMNON/OLK0/MO.NK.IOUN! . I0UN2. IOUMJ. I0UM4. I0UH9. 10UN4 
COMMON/OLKft/lll. III. IIS. 114. IIS. 114*117. 110. lit. 1110 

C 

COOftLUO  MHO  TRACR*  MM  I/O  MU  ST  UMAX  0  TAM  TO. 

OATA  LUM/4/ »  LU/31 / . I TftACO/O/ 

C440C0N8  TANTS  NfTN  NfWICT  TO  *Rf  ' . 

DATA  MRI. PI. HRI1.RI2. 0001. 0X19/1 .970704914704007. 

AS .  1 4 1 90349X900701. 4.71 21X000104400.4 . 301100X071 7 TX I . 

01 . 7734910900OMI4.  I*  13037014000X11/ 


I  MO 

SUBROUTINE  OOOT4N) 

C0MH0H/XH4/IA433)  .  10439)  1 10001423)  .  I  OUT 4 4  79) 

M1*N-I 

M-l 

1  NI>N4I 

2  10 4 IA1M) .LC  » IA4NI > )  X  TO  1 
11*1440) 

12*10(0) 

IA(N)*IA(N|) 

rO<MI*IO<Ml) 

IA4M1 )*l 1 
I04MI )*I3 
1  Mt*Mt ♦! 

IF  I Ml • LC • N)  X  TO  2 

if7nIlc.ni)  X  TO  I 
ACTUM 


FTN4 

•CMAfMNAl.O) 

PftOOAAM  MJ0F4S.I30) 

C 

C  IMIS  0/7  HWRATCO  OOJCCTO  IN  X  INNCANXT  AM  It  OTACt. 


COMMON/ AC MAI/ 10 4 2344). TO 4 2340). 104 7344. 4 >.11431. 31). 

I ICN4 31.31) . ICA4S2.32) 

COMMON/CWX/  INXIN.  Mil  N,  INOMMt .  MM.  (X.  JM4.M.07 
COMMON/CMOf  )/MNCOT4l4).Xl4IO>.XJ4  14) .N0UTCA4 10) .004  |#| . 

Iftf  < 10) tftAM( 10) *«AMA< 14) .HOM( 14) .NOMA 4 IO) 

COMNON/CNST2/WONAV  .MASMOO.MAftCLC  .NOOOMT  .NXIN.OtLXt  • 

IftCL IN.NOOINO 

COMMON/ IOOAT/LON.LM. I TftACO 

COMMON/ 00  J I  /NOO  JC  f  .  NX  X  4  3  )  .  I OFACC  4  44  )  .  JOAACt  <  44  »  .  BOXO«  44  )  . 
t  T SSI  04  44  >  .  It  M0<  44)  .7tX0<44  )  .  1X74  44  >  •  IVCC  4  44  )  .0LFX04  44  )  • 
2CMI43).CW749) 

COMXN/AFI/Nri»F|.XIl.F|?.0XI.OXI3 

COMMON/OLftO/NO.X  .  ICOUMT  .  I  SUM  2.  IOUMJ.  I0UM4.  I0UH9.  1 0UN4 
DIXM3I0M  0OF4  J7  >  •  f  OUF  (44  >  .NAMf  ( 1 ) 

MIA  MAMC/7M3M.2MAF.2Mi  / 


*O0JD7 


SIAftTS' .31. JO- . 


Wftl  IF  *1  UN.  W») 

'  )  OftMAI  4  /,  .‘O'  .  '  .3 
IH&MMX • IHSMINF1 
JMSMMI* JMSMIN4I 
IHO'lMSMlN/.'*! 

JMO* JMSMIN/2. 1 

Ml  *0 

nj'O 

NMI 4 1 > ■ 1MSM1N 

NNJ4 1 >- JMSNIN 

IF 4HCSMAX.10. 1 )  CO  10  40 

DO  30  I-2.MESHAX 

H.MNC$I(I>42 

NMI  4  I  I.NNII  I-D/24N 

NMJ4 I >  »NN J< I-l )/?♦« 

Ml -Ml. NMI  4  1  )SNNJ4  I  )  -NMI  4  1-1  IMHJI  |-J  »/4 

M2-M2. 4NN1 4 1 > . I ) 0  4MNJ4 I ) 4 1 ) - « NMI « I -  1 1 /2. 1 )«INNJ4 1-| >/?♦!) 

>  CONTINUE 

I  ftCLOUT -Ml 
KCLIM-MI.1 
NObOUl— M2 
MOOIM-M24 I 
ICOUNI-O 

MftI TC(LUMt  730)  RELOUT  .ftCL IM.NOPOUI .MODIM 
I  FORMAT  4  *  44  RELOUT- ' . 14. Jx . ' ftEL IN- ' . I  4. IX . ' MOOOUt * * . I  4. Jl. 
1  NOO IN-' .14) 

DO  200  1-1 .NCSMAX 
IOUF(  D-NNI4 1) 

I OUF ( I 4I0>-MMJ( 1 > 

>  CONTINUE 

CALL  CXEC4  2.LU. I0UF .44.1 TftACO. 2 . 30 ) 

I  OUT  4 1 >• 1MSMMX 
I OUF (?>■ JMOMHX 
10UF (])*IMO 
I0UF(4)*JN0 
I OUF  4  3 ) -MOOOUT 
I OUF  4  4) -MOO IN 
I OUF  4  7) -RELOUT 
I OUF (0)*RSL1N 

CALL  CXCCC2.LU. I OUF .44. I TftACO. 2 • S3 ) 

OO  00  1*1.2340 
X0(  D-0.0 
70(11*0.0 
)  COMTIMJE 
M  ftO  1*1.2340 
M  ftO  J—1.4 
I0(Z.J)*0 
)  CONTlNUK 
00  100  1-1 . IMOMMX 
DO  IOO  J*1 • JMOMMX 
ICH( I. J)*0 

>  CONTINUE 

00  110  I-I.INOMIN 
00  no  J-l. JMOMIN 
ICK( l»J)*0 
)  CONTINUE 

DO  140  1*1 .MOOJCT 
URITE4LUM.740)  I 

I  FORMAT43X. 10' <' »1X. ' OOJECT  0  «'»I2) 


IFII.M.l)  MO -NX  00(1-1).  | 

CX*0.0 

CY*0.0 

DO  130  N-X.NE 
NI*N41 

IF(N.EO.M)  Ml -NO 
NO- 1 X  ACS  (  N I )  - 1 OFACE  (  N  ) 
NC-JOFACKNt  )-JOFACS(N) 
1F4NO.CO.O)  X  TO  IX 
I  SLR  ( N )  *NC02/W 
X  TO  170 
IX  I0LF(N)*1 


170 


1F4X.LT. 0)  IV€C<N>  — 1 
IF(X.OT.O)  IXC(N)-| 

XOX0(N)*FVOAT(  lORACt (N>  )00X 
7SWO(N>*FlMriJXACS(N))OOV 
XEKO(N)*FLOAT(  I0FACC(N1 )  )OOX 
YEK0(N)-FLMT(JXACS(N1>)00T 
I 1*1117(0) 

trut.co.i)  x  to  ix 

A*ATX(  FLOAT  (  IAX(  II)>/2.0) 

tx  Sir?  193 

IX  IF(II.EO.O)  X  TO  IX 
A1*I9IX<  I  •  1 1 ) 

X  TO  IX 
104  At*I.O 

IX  X-4L0AT ( 1-1XC(N)  10XI4A10A 
IF(X.LT.O.O)  X-0L4FI2 
ATttKNI-M. 

CX-CX.XOXO(N) 

CT-cy.roxoiN) 

IX  CONTINUE 

A*FL0AT(X-N04I) 
cooxt  n-cx/A 
COOt 4 | )*CT/A 

WITCILW.7S3)  IIOIINI.INO.NI) 

792  FORMAT! '00  I0LR'/42OI5) > 

WRITE 4 LX.  734)  (  IXC(N) .NN70.X  ) 

734  FORMAT  I  *00  !XC*/(2019>> 

MRITE4LUM.734)  COOl 4  I ) .COOT4 I ) 

73A  FORMAT! '00  CENTER  X  ORAUI IT*' »2F 10.1) 
WRITE ILUN.  730)  (KSX04N).W*X.X  ) 

/30  FORMATI  ON  1 0X0' /(  IFIX10.2)  ) 

WRITE  (LUM.7X*  I  TOXO(H). N-M.X) 

7X  FORMAT! '10  TOKO' /( IFI2C  10.2) ) 

CALL  XI  T 
IX  CONTINUE 

CALL  EXC!  2.LU.  I0L7.44.  |  TRAC9t?*S4  I 
CALL  EXC(2.LU.IXC.X.IT0AC942*X) 

CALL  EXfC  I  7.LU.KSX0.  I X.  I  TRAC0*7.X  ) 
CALL  CXC(2.LU*70XO.IX.|TOAC072.A4I 
CALL  EIECl2.LU.XEXO.IX.lfRAC072.XI 
CALL  EXEC!  2.LU.TEK0.  I X.  I FRAC073. 72 > 
CALL  I  xECI  2.LU.0LFK0. 120. 1 IRX0.2. 74 ) 
M  230  1*1.9 
our  1 1 1 >coox 1 1 1 
OU7(|7tO)-CXT4l) 

290  COM) I HUE 

CALL  EUCl2.LU.0NF.44.tlOX072.Ml 
CALL  IUCIO.NAME) 


EX 

.N* 


E2 


si'snooi  inc  own 

l OMMON .  At  HA  I  /  *Q  4  25*0  I  .  *  O  4  25*0  > 

I  ICHtSJiU>»ICk(S:tK) 

COMMON/ CHISM/ I HSMIN.  JHSMtM.  1NSMHX.  MSMHI  »  |HO.  JHO.  DI  .  DV 
rOfMOM/DB  Jl /MObJC  1  •H«0O4  M  .  I  SFACi  4*4  >  .  J^TACC  4*4  >  .  XSSC04  «4  >  r 
lfSStU4«4>.KCVC(»4>.fCS*.«4*4».  I  St  P<*4  >  .  IUCC<*4  >  .  SLPSCet  *4  )  # 
JCTWlk'Sl.CGOnS) 

1  'Wtft<)N/blKS/NS.MC'lMJHl.IIIUR2.1llUM5.I0UN4.IBUH3.1DUM* 

t*o  ioo  M-Hs.m. 

IS-IS LP«H* 

IV* IVCC4M) 

IDIA0S4 ISI4I 
*10- I  SPACE  « M ) ♦ 1MO 
NT«*Jsr«CCINI»JHO 
tr<n.ca.4>  oo  to  no 

Nl-NIO 

M*M4I 

lKH.t8.Hll  H-N3 

NMWMfOlHIW 
OO  TO  120 
no  Ml-NVO 
N-N41 

IF4N.C0.NC)  N-«*0 
N2“ JSPACC I n ) 4 JMO 
120  H-l 

ifiii.co.2i  n-2 

MH-IA00TNDN2I/N 

1 0-1 

IF(tI.C0.2>  10*2 

OO  ISO  N-l.MM 
(Fill. CO. 4)  00  TO  140 
I0-MXO4 1 M 1  OO  <  N- 1 ) 

JO-NT 0* I SO < I O-NXO ) /2 
OO  TO  ISO 
140  I O-NXO 

JO— NT  04 1  VO  IN-"  I  ► 

ISO  ICM4  IO.JOI— -) 

OO  TO  414O.1O0.22O.240.7SO). I I 

140  I I-I04IV 
J1-J04IV 

1FI1CH410.JD.0T. -2)  ICMIIO.Jll  — I 
IF  4  ICMT  ll.JD.0T.-2>  ICH4I1.JD  —  1 
00  TO  1)0 

IOO  1FTI0.LT. O)  00  TO  200 
1.-I04IV 
12-I14IV 
JI-J041V 

1FTICM4I0.JD.0T. -2)  ICM4I0.JD  — 1 
1F4ICM4I1.JD.OT.  -21  ICM4I1.JD— I 
IF  4  ICMT  1 1  .JOT  •*••-))  ICMT  II.  JO)— 2 
IF  4  1CMI  I2.J0>.M.-J>  1044  12.  JO)— 2 
IF 4  IV. CO.  -D  00  TO  IOO 
ICX4I0. JO)-S 
ICO! II. JOT-9 
00  TO  1)0 
•OO  ICKT1DJD-7 
ICX4I2.JD-T 
00  TO  IM 

200  I 1-104 IV 
I2-II4IV 
JI-JO-IV 

IF 4  ICMT  1 1 .  J0>  .OT .-21  ICMTII  .JO)  —  } 

IF  4  ICMT  I2.Jfl.0T. ->2)  ICMT  12.  JO)-- 1 
IFT  ICMT  I  l.J|  >.«.-)>  ICMTII. JD— 2 


ICKTIO.JD-4 
iauil.JD-4 
00  TO  1)0 
210  ICKT 12. JO)— O 
ICK  Til. JO  >— O 
00  TO  IN 


JI-J04IV 

IF  T  ICMT  10*  JD  *OT  •  -1)  ICM4IO.JD— I 
IFlICMTtl.JOT.NC.-))  ICMTII. JO)— 2 
IF T IV. If. I )  ICK 4 10. JO) -I 
IF  4  IV. CO.  -1  )  ICMTII.  JD-) 

00  TO  |)0 
230  II-I04IV 


Jl- 


“IV 


(FT  ICMT  1 1  .JO)  «0T .  -  ) )  ICMTII.  JO)— | 
IFTICMII0.JD.NC.-3l  ICMT  10.  JD  — 2 
IF  T  IV. CO.  I  >  ICK4IO.JD-2 
IF  T IV. 10. -I >  ICMT II  *  JO)— 4 
00  TO  IM 

740  1 1-10- IV 
JI-J04IV 

IF  T ICMT It .JO) .OT. -71  ICMTII. JO)— I 
(FT  ICMT  II.  J|>. Of  .-21  ICMTII.  Jl)  —  t 

00  TO  IM 

290  IFHO.LT. 0)  00  TO  270 

1I-I04IV 
Jl-JOOIV 
J2-JI4 IV 

IFTICMTI0.JD.0T.-2l  ICMTIO.JD— I 
IF  T  ICMT  If.  J2). OT. -2 1  ICMT  10.  J2>— 1 
IF  T  ICMT  ll.JD.MC.-)>  ICMTII. JD— 2 
IFI1CM4II. JO).MC.-J)  ICMT  II . J0)--2 
IFTIV.CO.-D  OO  TO  200 
ICK  < 10. JO)— O 
ICKHO.JD-V 
OO  TO  IM 
240  ICKT  1 1  •  JD-t  I 
ICO* I1.J2I-II 
00  TO  IM 

2  J©  I1-I04IV 


Jl- 


-IV 


12- Jl - IV 

|F4 ICMTII. J0).0T. -2)  ICMT 1 1 • JO  I— I 
If  4  ICMTII.  J|  )  .Of  .  -2)  ICMT  I  I  .J|  )  — | 
If  4  ICMT  10.  Jl  ) . NC  .  - ] >  ICMI  I0.JD--2 
IF  f  ICM*  10.  J2I.NI  .-1)  ICMI 10.  J2)  —  2 
If* IV. CO.  D  BO  TO  TOO 
)?•  II-  IV 
ICO  4  10.  JD  - 10 
ICKT 10. J?)-IO 
00  to  IJO 
.'HO  (CO  I II .  JO)- 12 
1C*  4I|. Jl 1  —  17 
t 10  COM! INUC 


NC IUOM 

(NO 

CM04 


AFC  4S.  ISO) 

C 

C  IMIS  S/P  aCKMIll  *  NC SM  OF  KCCTAN0UL4*  OK  IfttANQULAO 
C  FINITE  CLINCH  IS  IN  Ml  |NICftM09T  Mf  31  AM*  DEFINE  THE 
C  MMMM  OF  THE  NOOCS  OF  EACH  CLCHCMT .  SUOFACC  NOKO  IS 
C  ALSO  DETERMINED. 

C 

COHNOM/ACNAl /X04 2500 ) . TOT 2S40 ) * IOT 2300. 4 ) * 1L 4 Si. S) ) • 

I  I CMC  S J>  S3 ) » ICK  4  S2.S2) 

CONNOM/CNCSN/IRSMIN.  JMM1N.  iHSMMi  JMSMHK.  (MO.  JMO.OX.ST 
COMMON/ CMS! t/NMCSr 4 10) .NMI I  JO  > »NNJ4 10) .MOUICRt 10) >KS4 10) . 

IM  T 10). KANT  10) .MkMAT IO> .MOOT  10) .NDMAT 10) 

COMMON/CNS  T  2/NC SNA)  .  NAXNOO.  (MJTCLC  .MOOOUT  .  NOS  I N.  MLOUT  . 
IKCLIN.MOOINS 

CONMON/CKCr/LNAN.LNAOT  )2)  •LNtKU)  .LMAT4  )2) 

COMMON/ 1 OOAT/LUN.LU.  I  TRACS 

CONHON/OOJI /NOOX  f  .MfCOOT S)  .  ISFACC  (04  >  .  JOFACC 4 04 )  . XSSCOT 04  >  • 
1 TSSCO (  04  )  .  JTCSCO 4  04  )  *  TCSCO ( 04  )  .  I OL F T 04  )  .  I VCC  <  04  )  •  BLF5C04  *4 )  . 
2COOK49) .COOT4S) 

CONNON/OLK4/ I 0 | < 29 > > I 0 JT 25 1 • I OUF) ( 29 ) • I OUF 4 T 25 > 

01  MEMO  I  ON  IDUF4*4)*MM«49> 

DATA  NAM/2MJ4.2MKC.2NF  / 


BTAATB ' .3X .20’ > ' > 


MITtTLUN.OVVl 
TOO  T00NA1T//20* .  ‘  »SS.**1 
BO  20  I-1.IN0MMX 
DO  M  J-t.JNBMU 
J1-J41 

IF 4 ICMT I . J> .NC .-11  00  TO  M 
IFT  ICMT  I .  Jl  )  .CO.  01  ICMT  I,  JD  — I 
JO  CONTINUE 
30  CONI INUC 

DO  40  1-1. I NON IN 
DO  SO  J— t.JNDMIN 
IFTICKTI.Jl.OC.il  00  TO  90 

IF  (  ICMT  I »  Jl  .CO.O.OK.  ICMT  141  > Jl .CO.O.ON.  ICMT  I4I.J4D.C0.0. 
I0K.ICMTI.J4I1.C0.01  00  TO  90 
ICKTI.Jl— I 
50  CONT INUC 


IFTNN.CO.il  OO  TO  OO 
DO  1900  J-l.JNOMNX 

WRITE TLUN.13SO)  T ICMI 1 . JJ> . 1-1. INONNXI 
1)00  CONTINUE 

DO  1210  J-I.JNOMIN 
JJ-JflKUNI  I  —  J 

UNITS TLIM. 1290)  TICKTI. JJ) » 1-1  f  1N0MIN) 
1210  CONTINUE 
1290  F0NNATT4I12I 

00  Nl— O 
NJ-O 


NIMNAX-NMtTTI) 

IFTLNWI.NC^O)  NINNAX-NINNAX-l 
IFTMINNAX.0C.21  DO  TO  09 
MKITCTLUN.042! 

•49  FORMAT  T  *OD  ENRON  IN  MTCCTCD  IN  D/F 
■TOF 

09  DO  70  MIN-t.NINNAX 

IFTNIN.C0.NIMMX1  NOOIHO-HOI4I 
INNO-NIN 
1MNC-IN0.  JIX-NIN 
JNNO-NIN 
JNNC-JNDNNX-NIN 
M  72  I-INND.INNC 
N01-M0I41 
ILTI.JNND1HM1 
KDTMOI I -FLOAT* I-IHOIODX 
TDTNOl I -FLOAT  4  JNNS- JM0)4DT 
72  CONTINUE 

NO  74  J-JNNN.JMW 
NS1-ND14I 
ILT  INNC41 .  J1-4T01 
XOTNOt I -FLOAT* INNC41 -IMOIDDX 
TDTNOl ) -FLOAT!  J-JM0140T 
74  CONTINUE 

NO  70  1-INN9.  INC 
11-INNC414IIMO-I 
NS1-N0I 41 
ILTII.JMC4II-M0I 
XOTNOI 1 -FLOAT (  II-IMOIDDX 
TOTNOI I -FLOAT* JNNC4I -JND) DOT 
70  CONTINUE 

DO  70  J-JNNO.JNM 

N0I-N0I4I 
1LTINN0. JJ1-M0I 
XOTNOt I -FLOAT ( I AND -IMF I SDK 
TOTNOI l-FLOATT JJ-JN0I4DT 
70  CONT  IMS 
TO  CONTINUE 

INNS -INNS 4 1 

•41 


IF4LNNCF.NC.0I  00  TO  04 
DO  00  I -INNS.  | MC 
DO  00  JHJNR.MI 

IF T  ICM*  I.JI.LC.-D  00  TO  00 

IFT ICMT 141 . J! .CO. -2.00. ICMI 141. J4| 1 .CO. -2. ON. 

1  ICMT I.  J4I  I.CO.-2.0N. ICMT |-| . J41 1 .CO. - J.OK. 

2  ICMT I - I* Jl  .CO. -2. ON. ICMT I- 1  * J-t I .CO. -2 .ON. 
##Jc—(J«J«*»>-»».t0.-J.00.|CM<i4I.J-D.tO.-JI  ICM 4  I.JI--4 

00  TO  02 

04  M  09  l-INND.INNC 
DO  OS  J-JNMD. JNM 

IFT ICM4 I.JI.Li .-I)  00  TO  OS 

IF  T  ICMT  Dl.JI.LC  .-I  .ON.  ICMT  |4I*J!D.LI.'I  .ON. 

1  ICMT  I  .  J4D.LC.-t.0N.ICMI  I  -  I  •  J*  D  .LI .  - 1  .OK. 

2  ICM4  I -l.Jt.lt  .1. 0K.ICM4l-l.J-D.it. -(.ON. 

)  ICM4DJ-D.lt. -|. OR.  10441(1.1-11. It. -|»  ICM4f.J)--4 

ns  rramwv 


E3 


[HI  90  1*1  MMS  .  I NMC 
[HI  90  J»  JNMb  •  JMMt 
ir .  Il  H.  I,. It. 1 1  .-!•  Ml  lo  90 

If  <  U  Mi  It  |  *  it.lt  .  -  *  .INK.  ICMi  141  »  j*|  >.l(.  -  |  .Oft. 

J  llM4  I  »  J4|  t.LF  .  i  .V*.  ICHl  I-t.in  t.H  ,  1.0*. 

1CM»  I  .Jt.lf  .  -  |  .0*.  ICH<  I  l.J  |  i. It  .  I  .Oft. 

J  1CM4  IiJlME.-l  .  0*r.  ICHl  I  H  i  Jl  )  -  I  I  |CH<(*J»*I 

90  COM t IMUt 


hO  »?.  1*1  MMS  •  I MMC 
WJ  ^1 

JJ*ICHt 1 • J I 

II4JJ.LC. -I. Ott.JJ.CO.il  OO  TO  9*1 
HSI'RSItl  . 

XG4MS1  )*fUMt(  1-1H0>SDX 
TO  1  MSI  i-flMIU-JMIUf 
95  COMTIMUC 

MOO I MS -MSI* | 


c 

C 


C 

c 


c 

c 


DO  tOO  1<<INMS<1MMC 
DO  110  J* JMMS • JMNC 
JI-ICH4 I • J> 

IF ( Jl «EO. - | >  00  TO  120 
IF  <  Jl •CO.Ot  00  TO  110 
MS1-MS14I 
IL4  I.JfftSI 

X04N61 ) -FLOAT < I-1H0I49X 
to  <  mo  i  >  ■float  <  j-jmohot 
oo  to  too 

1**0  ILI  I  «  Jt-M 

130  1F«I. CO. lMNO.au. l.CO.INNi)  OO  TO  110 

if 4  j.ca. jmms.oa. j.co. jnnl >  oo  to  ho 

I1<<ICK<1H  •  Jl 
I2-ICR41.JI 

IF< 1 1 • OC .5. AMD. I 1 . LC .0)  00  TO  140 
OO  TO  110 

140  IFlU.OC.S.Ma.IS.LM)  00  TO  ISO 
OO  TO  110 
ISO  MSI -MSI ♦ | 

X04NS1 ) -FLOAT 4I-IM0ISDX 

TO (MSI >- (FLOAT < J-JMO) 40.3 >S*Y 

H1-MI4I 

H-4MI-1193 

III(HM>*I 

HI  4N43>»NS1 
110  COMTIMUC 


IF4 1 .1 


< I NMC I  00  TO  100 


DO  1*0  J-JJNS.JJNC 

J1-ICK4I.JHI 

J2-ICK(I.j> 

IF< Jl .OC.t.AMD. Jl.Lf. 12)  00  TO  170 
00  TO  1*0 

170  IF< J2.0C'*.AMO.J2.Lf *I2>  00  TO  100 
OO  TO  1*0 
100  MSI “MC 14| 

X0<NS1 1-4 FLOAT  < I-IM0I4O.91SOX 
YS  <  MS 1 > -FLOAT < J-JMOItSV 
MJ-MJ4I 
M-<HJ-lt«3 
IDJ1M41I- I 
IDJ4M421-J 
IDJ1H43>«M0I 
1*0  COMTIMUC 
100  COMTIMUC 

maxmoo«hdi 

KS< 1 1-M0D0UT4I 
KC1I1-H01 

KMIII)NI|(|)-KS(mi 


WAITC4LUN.12J> 

123  FOMMAT < '••  MAXMOO-' >141 

K-KfLOUT 

DO  200  I-l.INSMIN 
DO  210  Xl.JNSMIN 

NMH-ICKU.J) 

1F<MNM.C0.-1>  00  TO  210 
K-M41 

IF<NNM.ST.O)  00  TO  220 

I04K.lt-IL41.Jt 
I0<K.2)-IL< 141 »JI 
I04K.3t-IL4I41.J41) 
I04K.4t-lL4I.J4tt 
00  TO  270 

220  IFINMM.OC.9.AMO.MHH.LC.O)  00  TO  21 
IFdtNH.SC.T.ftMO.MHM.Lf .12)  00  TO  J 

00  TO  4230.24O.290.24O) »NMN 


C 

230 

240 

290 

2*0 

270 


IOtK#l»IL<I*J> 
I04K.2ftL4I41.JI 
I04K.3I-1L4I41.J41) 
SO  TO  270 
I01K#lf  ILU#J> 

104ft .2) -1L 4  I tl » J» 
IOtK*3)-lL41*J4ll 
SO  TO  270 
I01K»I t-lL<I.J> 
t04K»2f  1L4  141 .  J41 1 
IS4K. 3>-IL41. J4I I 
00  TO  270 
I01K.D- IL4I41.J) 
I04K.2t-IL4I4l.J41) 
14<R<1WKI<JII1 
ICK4I.JI  — I 

00  TO  210 


c 

700  DO  200  M- I .MI 
MM-4N-I >• J 

IF  4  t  Dl 4MM4I > . NK . 1 41 >  OO  TO  200 
IF  r ID  I 4MM42) .NS .  J>  00  TL  200 
IS-IDt  4NN43) 

OO  TO  300 
240  COMTINUK 
JOO  KI-MMM-4 

OO  T0<  3I0»  J20* JJ0*340) .Ml 


110  IQ4R.I >-lL4 I# J> 
I0<ft*2f  IL4 141. Jt 
ie<K.jt>is 
K-K4I 

IDfK.I I-ILI 141. J> 
(04R.2>-ll i 147# Jl 
l»(Mll»H 


lb(4 .1 <*|S 
IblK.'Xll  4  H.’-Jt 
Ib(R.I)  |1*I#*’.J#1I 
1.0  IU  350 

l.’O  lO*  *  »  I  •  •*  IL  4  I  •  I* 

1G**.?I*|S 

IG4R. 3 ■ -IL i I . Jt  I  I 

K<MI 

iG4K.n-iiii.Ji 
IGIK.2I-ILI I  41. Jl 
IGtK.H-IS 
***** 

IG1K.I l-Il 4 141. Jt 
IOt*.?fIL4  I47.J) 

1S<K.3>-|S 
GO  tO  350 

330  I04K.II-IL41.JI 
104*. 21-19 
IG4K.3t-lL4l.J41t 
K-K41 

I04K.lt-ILll.J4lt 
I04K .2  t-IS 
I04K.3t-IL4l41.J4lt 
K-K4I 

l64K.lt-IL4I4l.J4lt 
lS4K.2t-I0 
I64K.3l-ILII42.J4lt 
OO  TO  390 

340  I04K.lt-lL4l.J41t 
104K.21-IS 
I04K.3t-IL(l4I.J4l> 

K-K41 

I01K.tl-ILH4l.J4ll 

I0<K.2t-l0 

I04K.lt-IL1142.J41t 

K-K4I 

I64K.lt-IL4I42.J4lt 
J01K. 2fJ0 
I04K.31-ILI |42. J> 

390  ICK 4 ]. Jt-~l 

ICK4  141.  Jl— 1 
00  TO  210 

3*0  DO  370  N-I.NJ 
N44-444-1  »*3 

IF  1  tDJ4W44t  I  .  M  •  I  >  00  TO  370 
1F41DJ4NM42I.MC. J4II  00  TO  370 
I S—  I DJ4  M4443 1 


370  4 


MTIM 


00  TO  <J00.400#4I0#«20>.MI 

3*0  10<K.lflL4I.JI 

I04K.2t-IL4l41.Jt 

II(K.II#(I 

K-K4I 

144K.lt- 10 
I04K.21- IL4I4I.JI 
l04K.3t-ILI141.J41t 
K-M41 

I04K.1I-IS 
I04K.2flLII4l.J4l) 
I04K.3I- 1L4I41.J42) 


40#  lOlCtll- 
I01K.2M 
I04K.3X 
K-M4I 
I64K.lt* 
I01K.21# 
I01K.3H 
R-M41 
I64K.1). 
I04K.2)* 
I04K.3M 
00  TO  43 

410  I04K.1 1< 
10IK.2X 
I04K.3K 
K-K41 
I01K#  I  >< 
!#<«(.*>< 
I64K.JX 
K-4C4I 
104K.I )« 
I04K.2>< 

00  TO  4; 

420  I04K.I )• 
I01R.2X 


-1LU.JI 

•  IL414I.JI 

•  10 

•  |L1 1#  J) 

IS 

'ILI I#  J41 1 

IL4I.J4I1 

•It 

•ILI  I .  J421 

10 

•  IL4I.J1 

•IS 

•ILI  I .  J41 1 

•  1L4I.J41) 
•It 

•IL41.J421. 

•  IL1I.J42) 
•ID 

•  IL4I4I.J42) 


K-M4I 
IS4K.lt- 10 
I0IR#2f  IL1I4I.J411 
IS4K.3t-IL4Ill.J42> 
RNUI 


IS4K.2)-IL4I»I.J42t 
I01K.3I- 1LII.J42) 
43S  ICK4I.J1--I 
ICRII. J4I f -I 

21#  COMTIMUC 
20#  COMTIMUC 

IMlAHldaUT 


IFlMH.CM.lt  00  TO  1302 
SO  OOI  J-l.JNONNI 

MRITC4LUM. 1390)  4 ICMI I.JJt.l-l. I MSI 
1301  COMTIMUC 
ICAOC-1 

IF4  IMS4OU4.0T.29t  I  CAM -2 

SO  440  1 1-1# ICASC 

IF < 1 1 .C0.7>  60  TO  490 

11- t 

1 2- MIM04 IMSMMV.291 
60  TO  4A0 

490  11-79 

17-IMSMHX 
MMITCILUM#*7*I 
*7*  FOMMAT  4 /// t 
4*0  SO  470  J-I.JNOMHI 
Jl- JMOMNIt I - J 

«MITC4LUM.*S2t  4IL4t.J|t.l-ll.l2t 
*07  FOMMAT 4 2919 t 


E4 


I 


*40  l  OH  I  INU*. 
i  lyt.'  I  l*N  f  |  Mt't 

UK1  u  <  Ll>M>V7  jl  K«AK  .NOD1N0.NODINS 
-■  1  »  F  i)k«MTi  ••  •  Of  CIUS  IN  AN  INNERMOST  NLST- 

t  ••  NOD1HU-  .13/4*  NOPINS-  ' .15.1 
no  5i)o  1-i.Ihshmx 

00  500  J-I.JMSHM* 

J  J- l CM  t  l. J> 

IF  t  JJ.tCt.  1 .0*.  JJ.fcO.  -4>  ICMi  I.  J>»0 
300  CONI  1NOE 

CALC  l*tC( t.LU.lBUf *64.1TRACSF2.55> 

I  Pl*f  .  2a  >  -WOMNO 

IBUF<?7>*N0DINS 

I PUF <  20 ) “MOO IMS -MOO  I HO 

CALL  £XEC42.LU»IDUF»*4.irRACSF2.531 

CALC  E*EC»8.NAM€ I 


FTN4 

ICtMtMMliO) 

PROGRAM  ASSIM<5.130> 

c 

C  THIS  S/P  OOCS  RENUMBER  I MO  Of  NODE*  AT  THE  SURFACE  OF  OBJECT 
C  so  .mat  CAST  HSURf  MODE#  ARE  ALWAYS  CORRESPOND  I  NO  TO  THE 
C  SURFACE  NODES »  WHERE  * HSURF *  IS  A  TOTAL  B  OF  SURFACE  NODE. 

C 

COMMON/ ACNA I / XO < 23*0 ) . y O i 23*01 » I O 4 23*0 # 4 > . 1 L i S3 > 53 1 * 

1 ICM(SJ.3J1.1CK(32.32> 

C OHMON / C ME SH/ I ASM I N . JHSH I N . I HSMMX . JMSFFMX . I HO » JNO . DX . DT 
COMNON/CNST2/NC8NAX .MAXNGD.NAXELE .NODOUT < NODIN tKECOUT * 
ILELlCf-NOOlNS 
COMMON/ IOOAT/LUN.CUr | TRACS 

C OMHON/OB J 1 / NOB JC T . NSE 00< 3 !• I SPACE < A4 I . JBR ACE < 44 ) ► XBSEO t *4 » » 
1 YSSE04 44 >  »  XESE04A4 > > YESEQ4 44) » ISLP< 44  1 • I VCC  t  A4  >  . BLPSCQ  4  *4 >  . 
2COOX451.CGOY431 

COMMON/OB  J2/  XSP  <  1 2D  >  >  Y8P  (  1201  .XEP4  128I.YEP4  *201  »N8P4  3  2BI  . 

1 NCP  4 1 28  » • NNP ( 32 >  »NPAT  4  3) .MAXPAT 
COMMON /BCR  1/XSC  13.A), YS4 13.*>.X£(  13.4  1  .  TE  t  IS#  4>  .  TY4  IS.  7 I  » 
ITTMl<l5»3>  » TYH24 13.3) 

COMMON /BLR 4/ IBUF 1  <  23)  .  IDUF24  23>  .NODE  4  231 »  IDUF4I  23 1 
DIMENSION  MSURF I J2B ) .  JDUF <  A4> .NAME <3 >  *  1 AOX 4)28) 

EQUIVALENCE  . ICK . I AUX > 

C  DATA  NAMC/2MSM. 2HAD.2ME  / 

DATA  NAMC/2HOL  »2HMT »2NJ  / 

C 

IFLQ-0 

WRITE (CUN. BBS) 

BBS  FORMAT! //20' »3X. ' •ABBIN*  STARTS' .3X. 20' . ‘ 1 
MABA-0 

IF(MA8A.E0.0>  00  TO  ABO 
I CASE -1 

IF< IMSHMX.0T.23>  I CASE -2 
DO  400  1 1 - 1  *  I CASE 
IF ( 1 1 . £Q • 2 >  GO  TO  410 

11- J 

1 2- H I NO < IHSHMX.23) 

00  70  420 

410  11-23 

I2-1MBHMX 
U Ri Tf UUN.BTPl 
B7B  FORMAT < /// * 

420  00  4 JO  J-l.JMSMHX 
Jl-JHOMMXM-J 

WRITE <LUN.BB2>  4ILM.J11. 1-11. 121 
B82  FORMAT <23131 
*30  CONTINUE 
400  CONTINUE 

WRITC4LUN.A701  4  4  104  I , J) . J-l .4 1 . I-RELIN.MAXELt 1 
WRITE 4 CUN. *80)  < I » XQ< I ) . Yfl( I ) - 1 -NOBIN.MAXNOD > 

*70  FORMAT <24131 

ABO  FORMAT (B< I4.2F4.2) > 

ABO  I PAT-0 

LA-NOOINB 
LB -MAX NOB 

NAXBE0-NBE  00  ( NOB  JC  T 1 
DO  IOOO  N- 1 .MAX BE 0 
M— 0 

IS-ISLP4N! 

1V-!VCC(N1 
Ml l-xf BC9<N> 

HI2-XSBE84N1 

MJ1-TESE0IN1 

HJ2-TBBE0(N> 

IFM-.CO.Ol  00  TO  40 
IFM8.C0.Jl  00  TO  *0 
0-FLOAT  < 181/2.0 
IFMW.CB.il  00  TO  20 
IF4IB.LT. 01  OO  TO  10 
DO  100  L-LA.L8 

IFO84L1.0C.MM.AMB.XB4L1.LE.H121  00  TO  110 

OO  TO  too 

110  IP<rO<L>.OE.N-ll.RNR.yOTLl.LE.NJ21  00  TO  120 
OO  TO  too 

120  IF  I AB04084 lO<L 1 -HI 1 14MJ1 -T04L 1 1 .LE .0.01 BBT  I.  00  TO  123 
OO  TO  I0O 
123  N-N41 

N0BC4N1-L 
tOO  CONTINUE 
«-l 

00  TO  400 
10  DO  130  L-LA.LB 

IF4X04L1 .GC.MI1 . ANB. X04L1.LE.MI21  00  TO  140 
00  TO  130 

140  IFIT04L 1.0E.HJ2.ANO.T04L1.L1.MJ11  00  TO  143 
DO  TO  130 

149  IF  <  ABB<0»  M»04L  > -HI  I  TOIL  U.li.O.OlBOT!  OO  TO  147 

00  TO  I  JO 
147  M-N4I 

NO0C4NI-L 
1J0  CONTINUE 
NZ-2 

OO  TO  *00 

20  IF ( IB.GT • 0  >  GO  TO  JO 
DO  ISO  L-LA.LB 

IFt IGtL > .GE .Ht2.AND.X04L l.LE .Mil  1  OO  IO  1*0 
OO  TO  130 

1*0  |»tVO(L>.OC.MJI.ANO.rO<ll.LC.NJ21  GO  TO  1 70 
GO  TO  130 

1  70  |F«ABS<GB*  »0M  >-MM  IFNJl -T04L  »  l.Ll.O.OIBBTl  00  TO  I  '3 
GO  TO  130 
ITS  N*N*I 


N/.J 

DU  TO  400 
JO  DO  180  L  «LA»LB 

IF i XG  4  L  > . GE • HI 2 .AND . XG( L 1 .LE . Hi  1 >  GO  TO  183 
GO  TO  180 

185  IF4YC4L1 .GE . MJ2 . AND . YG< L > -LE .MJ1 >  GO  10  IPO 
GO  TO  180 

IPO  IF 4 *(•£<  64 4XG4L  >-Hll  1 FHJl  -  TG*L>  1.LE.0.01BDT*  GO  TU  IPS 
GO  10  180 
IPS  M-MF 1 

N0DC4M1-L 
180  CONTINUE 
NZ-4 

GO  TO  400 

40  IF 4 IV.EQ • 1 >  GO  TO  30 
DO  200  L-LA.LB 
IFIYG4C > .E0.HJ1 >  GO  TO  210 
GO  TO  200 

210  IF4XQ4L1 .GE .HI  1 .AND. XGlL  > • LC . MI 2 J  GO  TO  220 
GO  TO  200 
220  M-M41 

NODE  4  M  >  -L 
200  CONTINUE 
NZ-3 

GO  TO  400 
30  DO  250  L-LA.LB 

IF4  YG4L  >  .E0.HJ1  >  (Ml  TO  240 
GO  TO  230 

2*0  IF4XQ4L1 .0C.MI2. AND. XG4L1.LC. Mill  GO  TO  270 
GO  TO  230 
270  M-NM 

MODE  (Ml -L 
230  CONTINUE 
N2-* 

OO  TO  400 

60  IFMV.EO.il  00  TO  70 
DO  300  L-LA.LB 
1F4XG4LI.CO.MI11  00  TO  310 
GO  TO  300 

J10  IF<  TOIL  1  *GE . NJ1 .AND. TOIL  >  >LC .MJ2 1  GO  TO  320 
GO  TO  300 
320  M-M4I 

NODE  ( M I  -L 
300  CONTINUE 
N2-7 

OO  TO  400 
70  DO  330  L-LA.LB 

IF (X04L! . EQ.HI1 )  00  TO  340 
GO  TO  330 

340  IF  4  YG<L I . GC . MJ2. AND. Y0<  L  > «LE . M JI 1  00  TO  370 
00  TO  330 
370  N-H4J 

NODE  4M1-L 
330  CONTINUE 
NZ-O 

400  MNAX-M 

DO  410  M-l .NMAX 
I DUF  2  4  N 1  -R 
IBUF4<M>-NODE4M> 

IF4N2.OC.7l  00  TO  420 
IBUri(RI-X0(IDUF4(HI 181000.0 
GO  TO  410 

420  I DUF 1 4N1—V04 IBUF44MI IBlOOO.O 
410  CONTINUE 

C 

CALL  SORT 4 NMAX! 

C 

L-4NMAX41 IB 4  1 -IV 1/2 

DO  430  N-I.NNAX 
LL-LFIVBM 

NODE  4MI-IOUF44 IBUF24LL 1 1 
430  CONTINUE 

HNAX-MNAX-1 
BO  440  M-l.MMAX 
IPAT-IPATAI 
NOP  MPAT1 -NODE  <NI 
MEP4 IPAT I— NODE 4 Nt 1 1 
440  CONTINUE 

IFMFLO.CO.O!  00  TP  1000 
NNP4MI-IPAT 
BO  490  M-I.NOOJCT 
IF4N.NC.N0COO4N! 1  00  TO  490 
IF4N.E0.il  00  TO  4*0 
NRATIM1-IPRT-NPRT4R-11 
00  TO  490 
4*0  NRAT4NI-IPAT 
490  CONTINUE 
1000  CONTINUE 

IFMFLO.CO.il  00  TO  400 
IAUX411-IPAT 
00  470  I-l.IPAT 
!AUXmt>-N0P4l> 

470  CONTINUE 
IFLO—1 
CALL  REURF 
OO  TO  ABO 
400  MAXPAT-IPAT 
NBURF-MAXPAT 
BO  400  M-I.MAXPAT 
L-NBR4HI 
LL-NEF4R! 

NBURB4N1-L 

KBF4NI-X04L! 

TBF4M1-TB4L! 

XCP4MI-X04LL1 

TE7(B»T«ILL! 

4 BO  CONTINUE 


,fTRAC8«2.59l 
.ITRACB43.0I 
.ITBACSF3.il 
i*  I TRAC9F3.  I A  * 
i.  I  TRACBFJ.  24* 
i.  |  TRACSF3.  J2» 

* . I  TRACS ♦ 3 .3*1 
20»l TRACSF  S»  40 ' 


CALL  EXtC< I »LU» IBUF.*4i 
IPUF  COI-NOOFO 
I  DUF  MO  l -MAXELL 
IBUF4 I  I l-MAXNOB 
IBUF 4 12 l-MAXPAT 
IBUF  < I Jl-NBURF 
CALL  CXEC42.LU.IBUT.44 
CALL  f *EC4 2»LU» *BP.?9*i 
CALL  EXCC42.LU.TBP.23*, 
CALL  EXCC42.LU.lEP.23* 
CALL  rxCC42.LU.TFP.29* 
CALL  E Xf C<  2.LU.NSP . 1 20 
CALL  ExEC47.LU.NfP.12B 
CALL  EXIC47.LU.N9URF.1; 
DO  3l0  1-1.32 

I DUF  4 f  >-NNR( | > 

310  CONTIMN 

Ml  320  1-1.3 
IBUF (1F»2*.NPAT4I t 
'.20  C0N1INUF 

CAM  I  BrCl2.lll.fBlN  .*4 
CAM  r«CC(O.NAMfi 


I -O  4'«N' 


E6 


NlNWFfc.HI  -  |l  l  .  !.*  I 
N(  IINAi  4. HI  *  U<1.J7M' 

I  ’.»  CONI  I  Nl  If 
HI 'Hl*l 

Hi  llNAi  4.  HI  '  =  IL  I  t  •-*> 

i'.'  i«sm«»  i»  ?> 

«|lt'l  UN.VH*.  i  tNlMNFftl  I 
VN*.  filLHAti  «•  N INNER  i?01S" 

WR  I  T 1  1 1  (Ml.  »84»  •  .  Nt'OMAI  1  .  »».  i*  |  .  H I NN  ►•1-1*41 

FORMA)  <  **  NCflNA-  <70J9>> 


K  -0 

«s-t 

IF  I  ISTH.EO, t  >  HS«0 

no  200  I » i  > incs 
ll>NfSMXM-l 

NI-NHI III) 

M.HNK.K  11  > 

IF<IS»H.E0.1t  GO  TO  240 
K*kM 
IGI 4. 1 ) -MS 
IG<4«2>  =HS*1 
-  IG<4. J  - -HSflNI +NJ) «2 
IG(4.4)-IG(K*3>-1 
740  Jl-HNEST  < II > 

DO  230  J-1.J1 
NN-7 

IF ( ISYH.fQ. V >  NM-t 

MI-NI-MH4J 

H2-NJ-NN4J 

IFl I.EQ. INCS.AND. J.CQ. Jl>  GO  TO  340 
1MJ.C0.JI>  GO  TO  270 
JOHP-I 
GO  TO  280 
770  JUMP«2 

700  IF(J.EO.i)  .10  TO  2*0 

C 

I*M1 

IF< ISYH.EO. 1 >  00  TO  2*2 
lGth.l  >»1G(K-1 .1  >M 
I0<K.2>-IG(K.l  >M 
IG(4«3)-IQ(K-1  .  3  >  )  1 
IGIR. 41-10(4. 3>-l 
GO  TO  2*0 

292  IG(4. 1 1-IGlK-l.l >M 
IGIR.2>-I0(K-1 .4 >41 
IG<4.3)-fG<4 .7>FI 
IG(K.4>-IG<K.l >  4 JUMP 
IFl J.NC. Jl >  GO  TO  307 
NCONMI Il*2*l>  —4 
NCONNI  11 *2. 3 >-10(4*1 >41 
00  TO  307 

2*0  IM ISYH.EO. 1 >  00  TO  304 
IF  <  J.NC . Jl >  GO  TO  2*9 
NCOMMI II. 1*1 >-441 
NCONNI I 1.1. 3 >-1014.3)41 

C 

2*9  DO  300  H-I.N1 
MM1 

10(4.11-10(4-1.1)41 
IG(4.2>-IG(K-1.2>M 
IGIK»3)“IG(4-1*3> ♦ JUMP 
I6<4»4>— 10(4.3) -JUMP 
300  CONTINUE 

IF  I  J.NC ,  Jl  >  00  TO  309 
NCONNI 11*1.2) -4 
NCOMMI II. 1.41-IGI K*4>41 

309  4-441 

1014. D-IGI4-1. 1)41 
I0(4»2>-I0(K.1>41 
IG(K.3>-IG(K.2)41 
IG(K.4>-IG(4-t.3> 

IF  I  J.NC  .  J 1  >  00  TO  30* 

NCONNI II. 2. I >-441 
MCOMNI 1 1.2. 3 >-10(4.4 >41 
00  TO  300 
30*  4-441 

IOIK.D-M9424MI4NJ 
IS(4.2>-HS41 
I0IK . 3 1-HS42 
IG(4.4>-I0(4.1) 4 JUMP 
IFIJ.MC.J1>  00  TO  307 
MC OMNI  1 1.2.1 >-4 
NCONNI 1 1 *2*3 >-10(4* I >4 1 
307  H2-H7-I 
C 

300  M  310  H-I.H2 

4-441 

IGI4.1 >-10(4-1.4) 
I0IK»2>aI0<K-l»2)41 
10(4.3>-10<4-l»3>41 
IQ(4.4)-IG(4-1 .4)4 JUMP 

310  CONTINUE 
IFIJ.NC.J1>  00  TO  319 
MCOMNI 11.2.2) -4 
NCONNI  I 1.2*4 >-10(4* I  >41 

319  4-441 

10(4*1 >-10(4-1. 4> 
IQ(4.7>-IO(4-t«2>41 
IG<4.3>-IG<4.2>41 
10(4. 4>-IO(4. 3)41 
IF!  J.NC  .  Jl  >  GO  TO  310 
NCOMMI II. 3.1 >-441 
NCOMMI II .3.3>-IQ(4*l >41 
C 

310  DO  320  H-I.HI 
4-441 

10 1 4 • I >-10(4-1.1 >4  JUMP 
10<4*2>"I0<4. 1 >-JUMP 
IQ(4.3>-IQ(4-I. J>41 
10(4. 4>-I0<4. 3)41 

320  COMTIMUC 

IF  I  J.NC  .  Jl  >  GO  TO  329 
NCONN(ll»3*2>-4 
NCOMMI 1I.J»4>*|0(4  »2>4I 
329  IF  I ISTM.f 0. 1 >  GO  TO  290 
MMI 

I6<4 • I >*101 4-1*4)42 
10(4.7 » -10(4 -1 *2>4 JUMP 
1014. JI-I0I4-1. 3>41 
|0(4.4)*IG(4»3)4t 
tMj.MC.JI>  GO  TO  320 
NT OMNI  II .4.1 ► *44 1 
IN  OMNI  It. 4.D*  10(4. 7*41 

r 

370  N7*M7- 1 

DO  J  JO  M-l  .M2 
4-441 

IGI4.I l -  10 1 4 - I .|>4| 

1014. 71-10(4  1.7*4  JUMP 
1014.  I >*101 4  1.7* 


1  It*  I  l>NI  I  Ml  If 
>•■4(1 

I  «•  *  ►  .  I  '  -  10*4-  I  .  I  >41 

igi  4  •  j  >  -  ir.i*. .  i  >ii 

IG(4.3>»IGt4  • 1 , 7  » 
IG(4.4>-IGIK-).4>>1 
IF<J.Mf.Jl>  on  TO  250 
NCOMMi I l.4.7)>4 
MCOMNI II .4.4) -IGI 4 • 3>f 1 
790  CONTINUE 

NS  -  I G  <  4 . 7  > 

IF  I  I  STM. Cl).  I  >  HS-*  IGl  4 . 4  > 
700  CONTINUE 


340  H-0 

DO  430  I - 1 »  4 
DO  430  J- I .40 
H-N4I 

JDUF  <  M  >  * NCOMMI I . J  > 

430  COMMNUC 

CALI  EXCCO.LU.  JDUF.73*.  IT4ACS4  4.94) 

IF I ISVN.CO. 1 >  GO  TO  397 
MS-1014. 2> 

4-441 

IGIK.D-NS 

!G(4.2>-MS41 

I G 1 4 . 3  >  -M I H4IC  0 1  I  > 

1G(4.4>-IG<4.3> -1 
NCONMI It .1.1 >-441 
DO  390  M-l .Ml 
4-441 

(GI4. I >-10(4-1. ?> 

!G(4.2>-10(4.1 >41 
IGI 4 .3  > -NINMCRI M4 1 > 

IG(4»4>-IG(4-1.3> 

390  CONTINUE 

NCONNI 1 1  *  1 . 7  > -4 


C 


4-441 

10(4.1 >-1014-1. 2> 
!G(4»2>*!0(4.1 >41 
IG(4.3>-IG(4.2>4I 
IG(4.4>— I0I4-1.3I 
NCONNI 11*2*1 >-441 


392  M4-M141 

rrilSTM. CO. 4)  GO  TO  399 
4-441 

1014*1 > -WINNER I  1 > 
I0(4.2>-I0(fc*l.4*41 


IG(4»3>-I0(4*2>41 
I G< 4 . 4  > >N INNER I  2 ) 
NCOMMI II .2.1 >-4 
N4-2 
M2-M2-1 

399  DO  3*0  M-l. M2 


4-441 

N3-M44N 

10(4.1 >-IOI4-l»4> 
I0(4»2)-IG(4-I*3> 
10(4. 31-10(4. 2)41 
10(4.4) -NI NMCft I  M3  > 


340  CONTINUE 

NCOMMI tl»2*2>-4 
4-441 

10(4*1 >-I0( 4-1 .4 > 
IG(4.2)>10(4-1 «3> 
10(4. 3>-I0(4. 2)41 


10(4.4)>10(f.  .3)41 
NCONMI II *3*1 *-441 

M4-M1 4M24I 

IF I ISTM.EO. 1 >  M4-M242 

DO  370  M- I .Ml 

4-441 

N3-M44N 

10(4* 1>-NIMNCK(H3> 
I0(4*2>*IG(4-I»I * 

10(4*3 >-10(4-1. 4 > 
10(4*4) -10(4. 3 >4 I 
370  CONTINUE 

NCONMI t!«3.2>-4 

IF ( XSTM.EO. I >  GO  TO  302 

4-441 

10(4*1 >-10(4-1.4)42 
1014*2  >—10(4-1 » 1 > 


I0(4*3>-10(4-1.4> 
10(4 *4 >-101 4. 3 >41 
MCOMNI t 1*4* I >-441 


H4-MI424H241 

M2-M2-1 

DO  300  M-l. M2 

4-441 

M3-M44N 

10(4*1 >>10(4-1*1 >41 
I0(4*2>*MINMCR(H3> 

10(4*3 >-10(4- I »2> 

|0(4*4>-I0(4-I»1> 

300  CONTINUE 
4-441 

10(4.11-10(4-1.1141 
10(4*2 >-NINNC0( I > 

1014. 3>- 10(4-1.2) 

10(4 *4 >-1014- I • I > 

NCONNI 1 1  *  4»2>-4 
302  4CL0UT-4 

M01 TC<LUN. 309)  ( ( 1014. N>. M-l .4) .4-1 .4CL0UT > 

!  309  FORMAT (2019) 

NRITC (l UN. *07)  III* J. (NCONNI I.J.4). 4-|.«). J-I *41.1- 
*07  FORMAT! '*•  WCOMM/24.  1  J  4-1  4-2  4-3 

A( 219.4(4) > 


41-4ELOUT4I 

C  NR I TC (t UN. 3*9 >  ((10(4. M) .H— | *4 ) .4-41 .MA4CLC  > 

C  3*9  FORMAT! 2019* 

C  RETURN 
C 

H-0 


2*NC0RAR) 
4*4  1  f 


DO  440  1-1*10 
DO  440  J-1.4 
DO  440  4-1.4 
M-H*  I 

IDUF  IN  ) -NT  ONMi  1.  J.  4) 

440  CONT  INUf 

TAIL  l»fC<7.lU.JDUr.794*ITRACS»4.30i 
CAL  I  C*CCtD.NAMf  i 


•  TOP 
END 
I  MR* 


E7 


*1A  i  *1  HA  t  •  i*  I 


IMIS  S  f  wMtfS  IhA  FAKAHflifcS  ON  DISCS. 


mnnuH  aenai '\c»  ’5d0».»ci« ;s«<)i.ibi:s«o.4'.ii<3j.sii« 

riurnnN  lnCSm  ihsmIN.  jhshin.  inshnx .  jnshhi  .  I  mo-  jw.  0* .  P» 
i OHHON  IQPrtT  LUM.iU.  I  IKACS 

PIN*  NS  I  ON  IPO  I  *  25*  >  •  IPO.’  23  *  >  »PUF  |  i  1  Jfl  *  •  PUf  2t  1  .'8  * 
EtH'IVALE  NCI  »  IPOl.POl  Wtimf.’.lUFJ* 

NRITClLUN.**** 

-»■**  FORMAT,  JO'.  .3»«  *UEHA1*  STARTS  .3x. 20' » 

NST0*-  -30?2  •  l 28 
(STAR) -0 

ISfCNO 

DO  100  N-l.NSTOR 
DO  I  to  I -I  .128 
II*  I  STMT  ♦  I 
lUf 1 1 I  *-»Gt  1 1  * 

POF2tt>aTGi  I  I  • 

IIO  CONTINUE 

CALL  E»EC. 2.LU.PUFI .25*. ITRACS*8. ISCCT) 

CALL  £«£Ct2.CU.RUF2.23*. rrRACS**.ISECr» 
t SECT* I SECT *4 
(START* I ST ART* I 20 
too  CONTINUC 

NS TOR- 2360/ 23* 

ISCCT-0 
DO  200  J-l  .2 
N*  J*2 
(START *0 

DO  210  N*  1  * NS T OR 
DO  220  1-1.23* 

1 1  *  I  STAR f ♦! 

IRUFit I >-]G< IT. J) 

HUf.’l  II-1GT  II. HI 
2 20  CONTINUE 

CALL  EXEC12.LU.IBUF1.23*. I  TRACS* 10. I SECT ) 

CALL  E  XECl  2  «LU.  I  BO  2. 23*.  I  TRACS*  1 1  ■  I  SECT  > 

I SECT* (SECT** 
f START* IS TART  *23* 

210  CONTINUE 
200  CONTINUC 


DO  230  I ■ 1 » I HSNHX 

ibuek  t  ».il<i.i> 

IWJTn  I**4)*IU I. JMSHMX) 

230  CONTINUE 

DO  2*0  J-l.JHSMMX 
I  BO  1  <  J*  1  28  >*IL 1  l  *  J  > 

I  BO  It J*t*2>-ILI IHSHMX.J) 

2*0  CONTINUC 

CALL  ExEC  (  2.LU.  I  BO  1 »  23*.  I  TRACS *2.81  > 
I PRO- INSNNX* JNSMNX 
11*0 


N-0 

ISECT-O 

DO  300  IM.IHSMMX 
DO  310  J-I.JNSNNX 
11*11*1 
H-N*» 

IBUR1IH)-IL1 I.J> 

IB02<N)-ICH(  I.JI 

IFl II.CO.IRRO)  GO  TO  320 

IFTTI.LT.  23*  >  00  TO  310 

320  CALL  CXECT 2.LU. I BO  1 < 23*. I TRACS*I2» I SECT  1 
CALL  EXEC  T  2. HI. IBUF2.2S*. I TRACS*I3. (SECT I 
ISCCT-ISECTM 
N*0 

310  CONTINUC 
300  CONTINUC 


WRI TE / LUN. 281 > 
7*1  FOAHATt///* 
STOR 
END 
ENDS 


F  IN4 

*£H*'  rtf HA2.0* 

l-ROCRAH  (.(Nrtlt  1.130* 


C  THIS  IS  iMi  MAIN  F  i  M>  I  I  Nf  FOR  TMt  GLOBAL  Hrt  IF!*  I  I  '  I  ON 
r  OF  IYCIC  - 


COMMON/ At  NAJ  AN i  40*A  I  .  IAi  40**  ■  •  IA«?I  2  *  ■  23*0  *.»'.’  .  *.« 

I  1G<  23*0.4  ».»RC  .  31  2  •  .  JPC  .  51 2  •  •  J  PC  t  M  _•  *  .  Ni'ONL*.  j.h  *  . 
2NCONV  <  1 2B  > .NCUNWi 128) .NCONl t  23* > 

COMNON/rNST  t /NOUTCRI  10* 

COMMON/ CNST  J'Nt  SNA  I  .HA>NOO«NA*tCf  .N0I4  S  .  NOfi  I  NS 


COMMON /CONN. NCONU.NCONAi 4 . 48  > .NLUNNt  10.4.4  > 

COMMON/ £l£M/S*Ai 10 > .Slrt< 1 0  *  » SNA i |0 ■ .S* P <  U>  •  »s« p .  1 0  > • 
ISNP< 10 • .SIC |i2|i.STCI<21 »  .SNC I >  2| > . S »l 2 ■  1 0  •  .S»l ’ll v  • 
2SNC2T 1 0» .S*CJ* 13>.STCJi 15* .SNC 3. 1 3 » .S« P •  1C » .  .  i p t  to » . 
3SnD< lO*  »SXE 1 1 15* .STC 1 1 13*. SNE I' 1 3  > • S  «l  2 «  28 i .S»l  2 •  28  * • 
4SNE2 1  28  >  «S*F  t 3*  >  » STF  4  3*  *  > SNF  t 3a  * 

COMMON/ tOPAf/LUM.LU. I TRACS 

CONMOM/RSOLV/ISTH. IR01SS. IPFOT .PpEPT.CfOIS 
COMMON / BL R 1 /ELNAT  <  * » V  > 

CONNON/PL*4/f#OI<23*.  TB02<  25  * »  TGA<  2'W.  IGGi  23  > 
COMMON/ PLRA/ Al .A2.A3.DCNON.AA1 • AA2 

C  OHHON/ BLR7/N0NB.NVAM,  JRNAX  .  NBC  .  fc  .  M  .L.'.kl.M  .  j.MCS.M 
COMMON/ BLR8/NH0.NZ.NZ|.NZ2.NZJ’NCTtF 
DINCNSION  NAAC  <  3  > 

DATA  NANC/2HID.2HAT.2M2  / 

C 

iMiTcauu.m) 

**♦  FORMAT  T//20  . ' .5X. • "CL MAT •  STARTS  .3*. 20  .  * 

CALL  EXEC (8. NAME* 


BLOCK  DATA 

CONNON/CNS  T 1 /NOOTER  < 10) 

C ONNON/C NS T 2/ NE SNA X . NA XNOD . HA XCL C . NODE S . NOD I NS 
CONNON/CONN/NCONU.NCONAI 4.40) .NCONN 1 10.4.4  * 
COHMOM/ELEH/SXAT 10)  .STAI  lOl.SMAT  |0>.SXP(10i.STP<10*. 
ISftBT  10).SXClf  21  ).SYClt21 1.  SNC  1 1  21  >.SXC2«  I0).SYC2<  10* . 
2SNC2 I 10>.SXC3( 13) .STC3T 13>.SNC3( 13) .SXD< lOi.STDl 10* . 
JSHDT 101.SXE 1 113) .STE1T J31.SNE 1« 13* .SXE2T 28). STC2I 28* . 
4SNE2T  28) *  SXF  <  3*  > • STF I  3*  > . SNF  < 3*  > 

COMMON/ I ODAT/LUN.LU. I TRACS 

CONNON/RSOLV/ISYN. IROISS. I 8R0T .RDEBT .CROIS 
COMMON/ BLR  l/ELHAUV.*) 

COMMON/ BLR 4/  1 801  <  23  >  .  1 8UF2T  23»  .  IOAI 23  >  •  IOOt  23  » 
COMMON/ BLR*/ A I . A2  » A3 • DC  MOM • AA1 . AA2 

COMMON/ BLR ? /NOM8 . NUAR . JRMAI . NBC . R . R 1 . R 2 . R 3 . RR . J. NCS • M 
COMMON/ BLR 8 /NND.MZ.NZt »NZ2.NZ3»NCTTR 
DATA  LUN/A/.LU/S1/.  ITRACS/O/ 

DATA  NVAR/O/. JRMAX/0/.N8C/0/ 

END 

SUBROUTINE  SORT  IN) 

C0MN0N/BLR4/IAAT  23  >  .  IBB  1 23>  .  I  BO  J  (  2S)  .  180 4  (  2S 1 


Nl*N-t 

M*» 

1  Nl-N*l 

2  IF ( IAA<  M  > . LE . IAA<  Ml >  >  OO 
Il-IAA(M) 


3 


I2-IBBTM) 

I  AA<  H  >  *  I  AA(  Ml  ) 
1 BB<  M )*I BBl Ml > 
IAACM1 )*I 1 

IBBTMl )*I2 
Ml*Ml*l 

IFTHI.LE.N)  OO 


TO  2 


TO  3 


IFTM.LC.Nl)  00 

RETURN 

END 

ENDS 


TO  1 


FTN4 

•CHAT ACMA2.0 > 

RROORAM  0LMT2T3.130) 

C 

C  THIS  S/R  FORMS  GLOBAL  MATRIX  FOB  ROTENT IAL  SOLVER  AMD 
C  ARRLIES  BOUNDARY  CONDITIONS. 

C 

C 0HHON/ACMA2/AMT4OR*>.JA< 40V* >. IAI 312) .101 23*0). TOT 2S*0>. 
1I0T  23*0. 4  » , VBCT312) «  JBCTS121 . IBCT  31 2 ) .NCONUt 128). 
2MC0MV<!2B>.MC0MV<I2«>.NC0NX(234> 

CONMON/CNST1 /NOUTCRI 10) 

CONHON/CNBT2/NCSMAX .MAXNOD .NAXCLC .NODES .NOOINB 
COMMON/ CONN/MCONU.NCONAT  4 . 48  > .NCONNI 10.4.4) 

COMMON/ 10DAT/LUN.LU. I  TRACS 
COMNON/RSOLV/ ISYN. IROISS . IBROT .RBCBY .CRO IB 
COMMON/ BLR I / CLNAT I V . V ) 

COMMON/ BLR 4/ 1 BUR 1 ( 23) . I PUR 2 < 23) . I OAT  23 > . IOOt  23 ) 

COMMON/ BLKA/A I , A2 . A3 . DCNOM . AA 1 » AA2 

C0HM0N/BLR7/N0MB.NVAR. JRMAX.NBC.R.RI .R2.R3.RR . J.NCB.N 
COMMON/BLRB/NNO.NZ.NZI .NZ2.NZJ.NC  TTR 
DIMENSION  AYOT 73*> .BORF T2.321.B0IA12.32> .NAMCt 3 1 
EQUIVALENCE  CXO.AYO) 

DATA  NAMC/2NHE.2NMA.2N2  / 


•0LMT2*  Sf ARTS', 3*. 20* 


MANC*1 

IFTMANC.CO.O)  00  TO  333 
NCSI *MAKO<  NCSHAX- 1.1 > 

DO  1*0  NCS-NCSI.NCSMAX 
RA*NCSMAX • | -NCR 
M*l 

IFlRR.Nf .NCSMAXI  R I *NCONNCRR* I »  4. 2  > ♦ I 
R?*MAICLC 

IFiRR.NE.il  R?*NCONN'RR.|.l )-l 
WRITE tLUM. *71 »  NCS.RR.Rt.R2 

*71  FORMAT i  •»  MCI-  . 1 2.SX .  RR*  . 1 2.3* .  R l *  . 1 4.3« .  R ?*  .14* 
BO  I  *0  R-R1.R2 
IGl-IG.R.t • 

102* I0« R. 2 » 

IGl-IGiR.T* 

IF  * IGTR .4 » .CO.O*  GO  TO  220 

MNP- 4 


Mt»tC< IG2* -*0< Ibl > 

MV-IGl  101 1  •  *r.t  IG2  * 

A  I -NT  Ml 
•’■Hi  NT 
A  1-Mi  4M*  *11013 

IF  iRR.NC  .1  t  GO  TO  210 
If  <  AC  ONU.  I  O.0>  GO  TO  .'IP 
no  i«o  I'I.nionu 
It-* 


L 


E9 


I  IIHI  iNHt 

ft  HAH  N-.UK 
IA<NVAK<1<  I.  n*t «  .  1 


Ml'HR 


**.*»  I  (IK  I  1N1I1 


In)  «*■(•  n-i.nvam 

A  t  •>  >  N  1 
I'ON  I  INI  It 

I  At  I  I  «»  I"  I  H.NAM.  > 


t  NO 

».  NA<  6t  nA.'.Oi 

StJKMItlf  (N6  FELNl 

COMMON/ of HA’/ 4M( 40*6 > .JA( 40va ) . IA<S12)»XGi  7360 >. VG < 2500 > . 
I !Gt73i>0.4> . YBCtSl?). J*«Ct3l2‘. IbC <312 » .NCUNUt 178). 

?Nt  ONV(  1  iNCONWl  1  78)  .NtON*  (  23ft  I 
COMMON 'CONN/ HCONU.NCONA'  4  .  «8  >  . NCONN)  10.4.41 
COMMON/ 1  L  t  M  /  S  KA*  10>.S»A«  10>.SNA(  10).SXDll0).S»tl<l0>. 

ismki  io><siicioi » .svci « -i » »smc i  iti  >.sxc7*  io f  .src?i  to . 

7SMC74 10  1 .sue J. 13>.SVC3<15> .SMC3< 1 3 * • SX D< 1 0 1 .SV 0< 10 >  » 

3SHD4 10) .SXE 14 15) .SVf 1 ( 15) • SMC  1 1 I5> *S»E2<?8 > *SV£2< 78  >• 
4Sm£7<  78) .  sxF <  36>  »SVF  <  36 > ’SMF ( 36) 

COMMON  /  IOOAT  /LUN.LU*  I  TRACS 
COMMON/ BL  K 1 /ELMA  T  <  9  •  V  ) 

f  OMMON/  DC  4  4  /  1  DUE  1  (  73 )  .  I  PUF  2  <  25  >  .  IGA  I  25  »  » I  GO  <  23  > 
C0MMON/BLK6/A1 .67.63 > DEN0M.6A1 .AA2 

l  OMMON / BL 4 7 / NON* . MVAR . JP M AX . M*C . K . 1 Pd . 1 D 7 . 1D8 . 1 D9 . 1 t> 1 0 . 
1IP11.ID12 

COMMON / BL K B / NNO • N2 . NZ 1 • N?2 . N2 3 . HC T VP 

r 

DO  100  1-1 *4 
IGG< I >-IG<K.l> 
too  CONTINUE 

IFINCT VP.EG.O)  GO  TO  470 
IF  4NCT VP.GC . 1 J  GO  TO  110 
MT  TP- 1 
GO  TO  130 

lio  IF4NCTyp.Lt. 4)  HTTP*! 

IF (NCTVP.GE . 3. AND.NCTVP.LC. 10)  MTTP-2 
IF (NCTVP.GC .11 .AMD.NCT VP.LC . 14>  MTVP-3 
1F«NCT YP.EO. 13)  MTYP-4 
MM-MCONWIN) 

DO  120  I-l.MTYP 
1 1 -MM-1 tl 

IGG<  14  4)  -NCOMX (11 > 

120  CONTINUE 

IF<NCTVP.EO.  V.OR.MCrvP.CO.lO)  GO  TO  300 
TF (MTYP.EO. 4)  GO  TO  410 
N2-NC  T  VP- I  NT YPt 2)4  4MTYP-11 
130  NZl-NZtl-NZ/494 
N22-N 247-N2/344 
NZ3-NZ-ttl3-NZ)/4«4 
IF<NZ. CO. 2. OR. NZ. £0.4)  OO  TO  140 
AAl-At 
AA2-A2 
GO  TO  130 
140  AA1-A2 
AA2-AI 

150  OO  TO  4 160. 190. 330. 300. 410. 470). MTTP 
160  NNO-4 

DC NON- 144.0 
DO  170  N-l.2 
N-0 

DO  ISO  1-1.4 
DO  180  J-1,4 
N-Ntl 

CL MAT 4  I . J ) -AA1 BSXBIN) X24 .  Ot AA2XSYB < N ) 44 . 0-AJ4SHB (N > 

1 BO  CONTINUE 

IF4H.E0.1)  N24-N2 
IF 4M. EO . 2 >  N24-N21 
IGA < I >- I GGTN24 ) 

IGA4 2 ) - IOG( 5 > 

IGA*nt2>-IGO(NZ2> 

10A(3-M)-1DG(H23> 

CALL  FILE 
170  COMTTNUC 
RETURN 
C 

190  DCN0M-376.0 
N24-3 

IF 4 N2. E 0.2. OR. MZ.EO. 3)  NZ4-4 

DO  200  M- 1.4 

N-0 

OO  TO  (210. 230-230. 240). M 


210  DO  220  1-1.4 
DO  220  J-I.6 
N-N41 

ELMAT < I. J)-<AAl*SXCI<M)tAA2«8YCl (N> > 4  I  2 . 0-A34SHC I <N) 
220  CONTINUE 
NNO-A 

I GAT  I )-IGG(N2> 
tGA(2>-IGG<N21 > 

IOA( J)-1004NZ2) 

IGA «  4 ) -I00(N73> 

IGA4 3 ) > IGO ( 3 > 

!GA(4>-!GC46> 

GO  TO  290 
230  00  240  1-1.4 
DO  240  J-1.4 
N-Ntl 

ELMAT  4  I . Jl-4 AA149XC24N) tAA2*STC2<H) )  4 12 .0-A34SHC2(M) 
741)  CONTINUE 
NNp-4 

IGA* I >-lG04MZ) 

I6A4?>-IGG(S> 

I(IA43>-IGG<N22> 

IGA4  4 ) • IGG4  6 ) 

GO  TO  290 

730  AAI-AI 


GO  TO  770 
760  AA1-A7 
AA7  *AI 

770  90  780  1-1.5 
DO  780  .1-1.5 
N-N4  I 

«  I  MAT* if  )  t ■<  AA I 4SXC  J  *N ! .AA7tSYCJ(N> ) 9 1 7. 0-A.14SHC  JIM) 
/HO  CONT INUE 
NN0-3 

|GA*  I  i-tfffitN/  » 

|GA*  1 )  I  GO  4  N/  ) 

|F  4  M.  t  0.  I  I  M/3-3  N/7 
IF  (H.t  f).  7>  N/3-5  N/ 

IGAT  4  i  •  164.4  N/5 1 
I I.AI  IBM  7.100*11  N2 4  l 
(1.6*  I  4  I4H.-IGGIN/4) 

•VO  I.AI  I  Till 

.....  iniiliwir 


►  F  TIJKM 


10.) 


Dt  NON  *.,,D 
NNK-4 
M7>NC'it  H 
DO  III)  HI..1 
N*0 

If  *N/. E4). 7.  4.4)  ID  1-"*’ 

AA| .41 


IGAt  I »  •  JGG< 4»M  3  > 

I GA4 2 > -  I *•*»«  B -  34H) 

1GA4 3 ) *  I GG  4  9-  1*M> 

IGA 4  4) * |GG( 7*M»2 > 

GO  TO  330 
370  AAI-A7 
AA?— Ml 

IGA4 1  I-IGG45BH-4) 

IGAt  2  » • 1GG4  8- 74M  * 

I GA <  3 ) *  1 GG < 7- J4N. 

I GA4  4  > • IGG< J4M-1 > 

330  DO  340  1-1.4 
DO  340  J- 1.4 
N-Ntl 

EL  MAT  < I . J  > -  4  AA1 BSXD4  N >  44 .Ot AA74SYP*  N  > > 44 . 0-AJ4SHD4 N I 
340  CONTINUE 
CA4  L  Ml  f 
310  CONTINUE 
RETURN 


C 

330  DC  NON -5  7  6 . 0 
DO  360  N- 1.4 


N-0 

IFtM.GC.3)  GO  TO  380 
DO  370  1-1.5 
DO  370  J-1.3 
N-Ntl 

ELMAT ( 1 « J>-4 AAJ4SXE1 < 
370  CONTINUE 
NND-3 

IGAl M  >  - IGG  <  HZ  > 

IGA 4  3-N ) - 1004  N2 1 ) 

I  GA  (  3  )  -  I  GG  4  3  ) 

IGAl Mt3  > ■ I GG4  6 ) 

IGAl 6-M) - 1 0G4  7 ) 

GO  TO  400 

380  DO  390  1-1.7 
DO  390  J-I.7 
N-Ntl 

ELMAT  I  1  .  J.-4AA|4SXC2< 
390  CONTINUE 
NND-7 


C 


I0A4  M-2 ) - 100*  NZ ) 
IGA 4  3-M ) - I  GO  *  NZ I > 
IGAl M  > ■ I GG 4 NZ2 ) 


IOAI 7-N  >« IGO  4  NZ3 ) 
IGA4  S  > - IGG<  3 ) 

IGAl At 3 )- I OO*  6 ) 

I GA  4 10-H) - 1004  7 ) 
400  CALL  FILE 
340  CONTINUE 
RETURN 


410  DCNOM-376 • 0 
•"  NND-B 

DO  420  M- 1.4 
N-0 


!N)tAA2«SrC14N> ) • 1 2 . 0-A34SHE 1 1 N ) 


(N)tAA2«SVE2*N) )412.0-AJ4fiHC24N> 


IF4M/2B2.EO.M)  GO  TO  430 
AA1-A1 
AA2-A2 
OO  TO  440 
430  AA1-A2 
AA2-A1 

440  DO  450  1-1. • 

DO  450  J-I.0 
N-Ntl 

ELMAT < 1 • J>-4 AA14SXF < N > t AA24SVF (N) >41 2 . 0-A34BMF IN) 
450  CONTINUE 
IOAI I )-H 
IOAI 5 )-Nt 4 
DO  440  1-2.4 
II-I0A4 1-1 > 

IGAl I>— IItl-II/444 
IOAI I t4 I* IOAI 1)94 
440  CONTINUE 
CALL  FILE 
420  CONTINUE 
RETURN 
C 

470  DC  NON- 34.0 
NND-4 
N-0 

DO  400  1-1.4 
DO  400  J-I.4 


ELMAT 1 1 » J>- * AI4SXA4N) tA74SYA4N> ) 14  *  0~A3tSMA(N  > 

400  CONTINUE 

DO  490  1-1.4 
IOAI 1 >*1004  I ) 

490  CONTINUE 
CALL  FILE 
C 

RETURN 

CNR 

•EMAIAEMA2.0) 

SUBROUTINE  FILE 
C 

COMMON/ AENA?/AN< 4094 ) * JA 4 4094 ) . I A* 51 2 ) . XO 4 7540 1  * V0< 2540 ) . 
I  104  2540. 4>.VRC<5I2) . JDCl 51 2)»IDC‘5I7) .NC0NU4 178). 

2NCONM < 1 20 1 . HCOMU < 1 20 > » NC0N1 <  256 ) 

COHHON/CNS T 2/NC SNA* * MAXNOD . MAKE L E . NODE « . NOD t NS 
COMMON/ IODAT/LUN. LU. I  TRACS 
COHNON/M.M /ELMAT  <  9 . 9  ) 

COMHON/M.R4/IDUF1  ITS)  .  f  DUF74  23)  .  IOAI  25)  .  1004  75) 

COMMON /M 44/ A I .AT. Al.Df NOM.AAI » AA? 

COMMON /Rl 4 7/NOMR.NVAR . JPNAX . MRC  » IDS* IDA. ID  IPO* I P9« IPIO. 
I IDI I . I Dl 7 

ronHON/M  4R/NND.NZ.NZI.NZ7.NZ3.NCTTP 
DIMENSION  AUXI |0).AAU>( 10 ) . IAUX I  10 ) . JAUX I 1 0 ) 

f 

DO  30  N-I.NMD 
DO  30  M-N.MND 

FA  MAT  I  N.N)  .|  I  MAT  I  N.M )  /  |*f  NON 
IFlN.ro. M.  GO  10  30 
Ft  MAT4H.NI.fi  HAT i N.M I 
30  rONTINUf 

fin  loo  N*t  .MNP 
NO. IGA<  Nt 

If  (NO.l  I  .NOPlNS.THr.MO.GT  .NOPFS)  (4)  10  IPO 

WKf)  .  NO  t  •  -  MTIfl  4  M< 


E10 


l*t*  ilv  n  l  .mmo 
li>A<n> 

l  I  *  '  HO  .11.  MO  '  Oil  HI  IIO 

*ll«  NIMt  l 

■HnitHini  flMHN.il' 
liUlliMIN*  no 
l  10  ('(MflHtlf 


n»o 

DO  II’  I  *  I  •  NON 
I  I  -  I  Aim  I  > 

VAl  -AU*<  |  * 

l>  >  I  I  .IF  .MOPf  S  t  GO  ID  II* 
If tWUC.FU.O*  no  TO  114 
DO  11,1  R«1  .NHC 


c 


I  l  .l 

l  1  4 


115 
1  1* 


II? 


II* 


l?0 

130 

140 

150 


1*0 

ISO 

1*5 

200 

?I0 

270 

250 

7*0 

270 

200 

2*0 

2*0 


*  I  >k 

IK  I  KC  l  K  •  .  tO. MO  .  AMO.  JSC  (R  »  .  EO  .  I  I  I 
CONTINUE 

NHONACtl 
IRC  (N»C  >>NO 
JAC<WRC>*ll 
T*C(H*CI*VAL 
DO  TO  112 

TBC<R|  HYIClM  »*VAL 
GO  10  II? 
i 

JAUK4Ht*|| 

AAOI <81 "VAC 
CONTI NUC 

IKH-CQ.O*  GO  TO  IOO 
DO  119  |«1. N 
I AO* I  I >» JAOXI I » 

All*  <  I  I-AAUX4  I  ) 

CONTINUE 
NON -A 

JPI-lAlNNO) 

NSMIFT-NUN 

IF(NVAA.OT.NNO)  GO  TO  120 

JP2-JPNAX 

JP3-JP241 

IF <NVAA.LT .NNO»  GO  TO  300 

GO  TO  150 

DO  I  30  K-NNI .AVAR 

ri*ia<k» 

IFIK1.NC.0I  OO  TO  140 

CONTINUE 

JP2-M-1 

JP3-KI 

IFlJPt.CO.Ol  00  TO  1*5 
DO  100  K-I.NUM 
Kl-IAUXIRI 
DO  1*0  L-JPI.JP2 
JP-JAILl 

IF<JP.€0.Kl>  NSMIFT-N5MIFT-1 
IF< JP.GE.RI >  OO  TO  1*0 
CONTINUE 
CONTINUE 

IF  <  NSN1FT . CO . 0  >  80  TO  220 
DO  200  K-JP3.JPNAX 
KI-JPNAX4JP3-K 
K7-K14NSMIFT 
AN<K2»>*N<KI * 

JA<  K7  > ■ JA< K 1 > 

CONTINUE 

DO  210  R-WN1 »MVAR 
Kt-IAIKI 

IF4KI.NE.0*  IAIK  >-KI 4N5NIFT 
CONTINUE 

NAX-JPIMXINtNIFT 
IFlJPt.CO.Ol  00  TO  300 


DO  2*0  K-I.NUN 
KI-IAUXIK) 

DO  250  L-JPI.JP2 
LL-L 

jt-ja(l) 

IFCJP.C0.K1>  OO  TO  2*0 

ifijp.ot.kd  oo  ro  2*0 

CONTINUE 

LL-LL4I 

OO  TO  2 NO 


DO  270  L-LL.JP2 

L1-JP24LL-L 

AN ( L 1 4 1 > “AN (LI) 


JA4L141 1-JAILI » 
CONTINUE 
ANILL  1-AUXIK ) 


JA(LL)-K1 
JP7-JP241 
GO  TO  240 


AN<LL  > -ANILL  )  ♦A*iX(K) 


300  DO  310  K-l.NUH 
IAUFJ(K»IAUX(K> 

I DUF  2  ( R  >  «* 

310  CONTINUE 

IF(NUN.0E.2>  CALL  SON T < NUN ) 


GO  TO  115 


DO  320  K-1*NUN 
K2“ I DUF 2 ( K  > 

AI“JNJ4K-I 
AN  <  K 1 > -AOX ( R  7 ) 

JAIRl »-IAUX(K2> 

320  CONTINUE 

1A(NN0>-JP3 

340  IF (NNO.GT .NVAN I  NVAA-NNO 
JPNAX-JPNAX4NSMIF T 
IOO  CONTINUE 

IFINVAN.GC .01  RCTUAN 

WRITF(MJN.887>  1P5» < IOA< I ) . I ■ 1 .NND> 
807  FOANAT I 'CELL •-'•IJ*SX»8I51 

WAITE  (LUN>8«fl>  <  I  A<  1  )  >  I  «1  iNI/M) 

AM  FOANAK  •IA'/(?5I5>> 

WR I  If CLUN»  889 >  ( JA4 II » I- 1  * JTNAX » 

NR*  F OANAT (  '  •  JA  '  /  <  23 1 5  >  > 

WAITF  (|  ||N«*Ot  I  (  AN(  I  >  >  I  >1  •  JPHAX  1 
901  FOANAT ( ' 4AN ‘/MPI0EI3.5D 

RCTUAN 

END 

END* 


>  I  HIS  S/f  WMHS  HIA  VNFIAHtS  ON  DIM  5. 


C  OrtNON/ AC  NA?/ AN  *  4  OVA  ►  .  1A<  40*4  >  •  I  A  <  *«  I  •./>«  i 

I  I  G<  7S*0.4> .TR(  t 5I7>.  IRC  ( 5 1 2 1  •  I  DC « 51.’  • oniI'  I  .’N 
2NCONU4 | 28 » . NCONWi 1281 »NCON*«?5*> 
rONMON/ IODAT/1 UN. I U» I  TRACS 

COrtNON/FSOl  V/IS»Nt  IPUISS.  1 8*01  .RM  AT  . LAOIS 
rONNON^MR  7/NONA.  MVAA.  JTNAS  .NRC  .  105.111*.  ID'.  I  DM 
1IDII.1DI? 

DlnCNSION  ROFR»  l7ft>.|AUF  I  l  I  78 »  .  I *>UF  2<  I  78  >  .  JPUF  ' 
DIMENSION  AVOl  25*  > 

MMJIVACENCEI  I  DUF  ?.  JAIN  )  .(XG.ATO* 

DATA  NANE/2NDC.7MUN.2H*  > 


WRITE ILUN.***> 

999  F0ANAT<//70~  . * »5X. ' ’WCNA2*  STAR  It ' . 5* . 20 •  .  > 
CALL  CXECn.LU.JDUr.44.ITRACSO.55> 

JAUE I ?2 > -NVAA 
JRUF  <  ?J>. JPNA* 


JDUF  4  241 “NDC 
JAUF I 73  >» NONA 

CALL  CXCCI 2*lU.  JAUF  .44.  I  TRACSO.S5> 

WRITE (LUN.971 I  NUAR* JTNAX .NAC .NONA 
971  FOANAT  < ' 48  AVAR- * . I4.SX. ’ JPNAI-  . 15 . 5* . ' NBC- ' . 1 4.5* . 
I 'NONA*' .141 

I SECT-0 
ISTART-0 

I  TRACK* I  TRAC  30 
NS TOP- JPHAX /1 7841 
DO  150  N-t.NSTOP 
DO  140  I-I.I28 
IDUFt ( I >-JA< t START*! > 

140  CONTINUE 

CALL  EXECI2*LU*JAUF1* 128* (TRACK. (SECT) 

(SECT- I SECT 42 
! START- (START 4! 28 
IF  <  NOD <  N.48 >  .  ME  .  0 )  OO  TO  ISO 
I  TRACK- 1 TRACK 41 
X8ECT-0 
150  CONTINUE 

ISCCT-0 
I8TAAT— O 

I TRACK-I TAAC84 1 4 
DO  170  N-1*NST0P 
DO  180  1-1.120 
8UFRI I )-AN( I START 4 I 1 
180  CONTINUE 

CALL  E XECI 2. LU.8UFR. 254*1  TRACK. I SECT ) 

I8CCT-ISECT44 
1 START- I STAR T4 128 
IF <NOD( N.24 > .NC .0)  00  TO  170 
ITRACK-ITRACK41 
ISCCT-0 
170  CONTINUE 

N8 TOP- INUAR4 1 >✓ 1 2841 

ISTART-O 

ISCCT-0 

DO  200  N— 1 .NS TOP 


DO  210  1-1*128 
X8uri<i»-iA(isrRRr4ii 
210  CONTINUE 

CALL  EXCCI2.LU* I8UFI *  128* ITRACS434* 18CCT ) 

I SECT- I SEC T42 
I8TART— I8TART4128 
200  CONTINUE 

N8 TOP -N8C/1 2841 

iaccT-o 

I BTART-0 

I  TRACK- 1 TRACS* 35 
DO  250  N-l.NSTOP 
DO  240  !-|*I28 
I8UF1 < 1 1-I8C  C ISTA8T4 1 1 
I8UF2I I )-J8C( I START 4 1 > 

SUF8I I ) “YAC  < ISTART4I > 

240  CONTINUE 

CALL  EXCCI 2*LU*IDUF1» 128* I  TRACK *I8CCT> 

CALL  EXECI2*LU*I8UF2*128* I TRACK* I SECT 4 24 1 
CALL  EXECI2*LU*8UFR»2S4*1TRACK» ISECT42448> 
ISCCT-ISECT42 
ISTART-ISTART4128 
250  CONTINUE 


C  WRITC<UM**72)  1 1  SCI  1 1  •  I- 1  .NSC  > 
C  *72  FOANAT (*IAC'/(25IS>> 

C  WRITEILUN.*74>  ( JSC  1 1 1*1-1 »NtC I 
C  *74  FORNATl'JRC VI 25151 > 

C 

N8T0P-NUAR/I284I 

ISTART-0 

ISCCT-0 

DO  350  N-t.NSTOP 
80  340  1-1*128 
AUFRI 1 1 -AVOl I START 4 1 1 
340  CONTINUE 


CALL  CXECI 2.LU.SUFR»2S4.ITRAC*434.ISCCT> 
I SECT- I SECT 4 4 
ISTART-ISTART4I 28 
350  CONTINUE 

IFIIPOI88.OT.OI  STOP  0001 

IF < IPOIS8.LT .01  CALL  CICCIA.NANCI 

STOP  0002 


1  TN4 

ttMA'A*  NA.'»01 

»  R/M  *n  n 4  •»*.»>*./>> 


Ell 


Ml'.  I*.  I  Ml  MAIN  AlHUtNE  If*  I  Mr  CUXKfNT  COLLECT  ION  SECTION 


noiMKr  rin  isiow  cchb 

itmmiw  aenaj  u.<  23*0.4  >  •  234».pot< 23aoi.ex ' 2360*. 

ti  t «  .'5*0  1  •  An  i  3040  '  .RWORA*  .*5*  •  »C  10WI  I  ?8*.CElE<  I  28*  .CPRO<  128*. 
•CFRON*  |  .'Rl.iSiCi  I  .’8  i  •  (_S£CHi  120  * .LPSCi  128)  .CHSCH*  128*. 
llFMfl*  I  .'8>  .CPH0M.  l  20)  .PSECT  »  128».CS£rT<  128  *  .PCNITi  *  28  >  * 

4XSP*  i;«i>ISf<l  _’0».XEP«  t-BI.YEP)  1  20  )  •  *SS£G  i  64>  i  f SSCG I  44*  i 
*.xf  SIG*h4».»FS£G«a4>.SIPSEG<44>»IR00T« I '8  * • I OKI 1 28  > . 

.-.wnncnn  i28>.wri'wu*  i2bi.ncowv<  i 2a i ,nconw<  128>.nconx<  128'. 

'AC  A  IS*  J  *e>  .WIN  II  .  I  '8  >  .MSEC  14  128) .WCONDl  1  -8  I  . NPPAMI  44.?*. 
ANSUNPi  l  '8  *  •  ISLP  1641*  I VEC  l  44  I  «  NPAT  I  44  *  .NCPl  128>.NCNA*  l  .'8  >  . 
vwCNB*  384  I «  NC  nC *128' »NS)<  l 20* -HEP i 128* .NSURF  » 128* 
i  ONNOW  CACAO  Tw.TJl.TJ2.Tx.TnlN.TnAX.ITN.IU.IT2.ITX.il. 

I  M  I.JT.JJ1 

CQnnow/i ACPI ' 1 M  > 1 Dn l .IOM2.IDN3.IpN4.Oni 
(  ONNOW  'CACP1 /T1.T2.T3.T4. T5»  T4. TS . I A ■ L B . MA « NB > NWA. NNB . 

I  to.  JVJ.NO 

f ONNOW  CODES/ IA2.WA2.IFL.  JGS.  JGE.NF.  JSF.  JCF.VAl .FMIF .PHIWCW. 
iCUFOm . IS l 

TONNOW/ C NC 8 'CCN* < 31 > . 1 08 OCR 

CONNOM/CHfl«/l*  J.JJ.  31.  J2.NA<D.C0CF. 8ATC.0CM.lD.jp.  1CUT.JC0T 
r ONNOW/ CLFt  X/ IA3. JA3. JN.FFO.FF 1 . Ff 2 * FF 3 . FF 4 

r ONNOW/ CL 1IG/FI . F2. P3.F 4. F5.TLl.Tt 2. TL3. TL4.V1 .V2.V3.04.V5. 

I IWTTP. 1CASC. ITTPf 
COMMON /CNCSM/OX.DT 

C ONNOW/CMS T 1 /NWCST i 1 0  * . BWS T X (1 0. 2 > . FWST T I 10.21 
C ONNOW/ CWS  T2/WCSNAX .NAXNOO.NAXCLC .NODOUT . MODI W.KCLOUT .ACL  IN 
C OnnOM / C OWN /NCOWU.NCOWA*  4.48 > .NC OWN < 10.4.41 
C ONNOW /COA*/ WCWTP.AOC AT . DC  TA • VM IN.POTS . BE TAP. GAMA  »NP TCI  « 
ILPTCt .NCMA. IOFB. JORD*  JOML .FIMF< 101 .FIMFI < 13) • TRAP! 2*21 
CONNOW/CAA?0/RATIO*2.8> .F TPF . FTSC . FT BC . P TPN . FLXFEF 
C ONNOW / C FOG T /  AC  UFCY. DPMI 

COMMON/ CS I  TO/ AN I W«  14  * . ANAX (14) *  VL  I  1 4  > •  VA  »  VB • TNI > TM2. 1 {TYPE. 

I  I LEV. ISO! . IWO.NLCV 

C ONNOW /C SUN / SAWGL .NSUNBl 321. XSUNB  t  32  >  • YSUWBl 32 1 » ASUWSt 44> . 
INSOW 

C ONNOW / C UN  T  /C SON  .  C A8 1 V .  CUMf  .  f COM  .  fCURH  » SON  , CUM I  3  > 

C ONNOW/ r u r AO / AACU t < 3 . 4 1 . N£N T . NCFL 0 • NNCU T . CU TN I W . CUTNAX 
C  ONNOW/ C  VC  L  / VCEVI  l4).MLeV.MLEVl.VL£VX(14>.VtEV£<  14  >. 

I  ML C  VC  •  RANGE C  <  1 0  > « COCf  TE  (  10)  .POWCFC<  101 .  IDISTFI 71 . 

2NPAATE  .  MDON  *  14  > 

CONNOW/C COWW/WCFLG I  4 > • WF I X ( 8 1 . VF IX < 0 > .NFL OT ( *4 1 . 

IN* IASI  2.81 .V0f AS(8).N8CS<2.0).RCSTA<8>.ICOWD(A4> 

C  ONNOW  /  C  N I  T  A  /  WC  SC  C  I  3  2  >.  NF  AWC  (  4  4  1  .  NT  AWL  .  NC  N I  T  .  NC  N  S  .  NC  NC  . 
INIMTP.nSCCT .NSUFF 

COWNON/OCNRL /L0N3. ASFOT . ICNTKL .NTOUR. I Tf8. 

1  AC  r  INC  ,  TL  INI  T  .  10*  JF  .  I  T  INC  <  S  > 

CONN ON/ IOOAT/LOW1 .LUN7.LU. I TFACS.WTRACA I  32) .Nl TCF 
COnwOW/NPODJ/MTFL<44l .NMATlS) 

C ONNOW/ NP MOP/ YPROl 2 . »©> . TSCC 1 2 . 30 ) . YBAC I  3 » 30 ) . YPMOl 30 ) . 
1A08ACI 30) 

COWNOW/O* J 1 /W08 JC T . WSCOOl S ) • COOX < 9 > . COOV < S ) 

CONWOW/O* J2/WWPI 32 > .NPAT < 3 ) * WAXPAT 
CONNOW/PCU*  T  /  1 P  T  CL  1 3  >  >  I  AMP  1 3  >  .  CLOWS  <  32  > 

C0NW0W/PMA9C /NUM .  NAWOL . 3AW0.VI < 23) * AWOI 40) »WAWO<  23) 
CONWOW/PSOL  V/ 1 S  YN  .  IPO  1 58  .  I  SPOT  .RKIT  .  CPOlf.  WVAA  .  JPNAX  ♦  W8C  , 

| WOWS .WOOFS • NOD1MO. WOSIN8. WOSIMW 
CONNOW/8P1 /MPI .PI .MP13.P12.SOPt .SOPia 

CONWOW/8C8CH/TA. T8. TC.V.DNAl .0NA2.BNAJ. TD.TC. JP.MA.LCONV 
C OWNOW/ »L A 1 / DC* < 3 > 

COWNOW/SLA 2/8UF t < IS > .  MJF2 ( 1 3 1 . 8UF3< 13 1 . SUF4 ( 1 3 1 
COWNOW/BLA3/SUF3I 13 ) .*UF«< IS) . 8UF 7<13) . SUFtt 201 • 8UFS<30 1 
CONNOW/SLA4/ ISUF I < 23 » » I SUP 2< 23 ) . IDUF3< 23 » . I 8UF4< 23 > 

COWNOW/8L AA/XO* TO. DW . 2W. 0W81 . 0W82. 0W8J . 0M84 . DH83 
CONMOW/DLA  7/M0.N1 >W2*N3. IS. IV. |A0. JA0. 10. JO. JMN 
COWNOW/ SL A 8/ 1FL A . N08 » I P . W . NSC OS . NSCOC . MPA T • . NPATC 
CONNOW/SLA 1 1 /C IWF I 22»  *OIN<  23) .OFT  J>  »A*F<  3* »AUX<  2. 3l .AUX 1 <4 ) . 
IAUX2I 71.FTCI 31.FBI J.7) 

COWNOW/ SLA  1 2/AAAI 20 ) *NA8< 20 ) .*W< 20 ) *  I AS( 20 1 
PIWCNSIOW  MANC 13) 

DATA  NANC/2MCN. 2MT8.2ML  / 

CALL  CXECtB.NAHC) 

STOP 

CNB 

FLOCK  DATA 

DOUBLE  P8CCIS10N  CCM8 

COWWOW/CACAO/TW. TJ1.TJ2.TX.TNIN. TNAX . ITM. I71.IT2.ITX.il* 

| JJJ. JT.JJI 

COWWOW/CACPT/ IK  1 . I ONI . 1 0W2* I DM] . I0H4 . DN1 
c ONNOW/C ACP1/T 1 . T2.TJ. T4.T3. ?*.TS.IA.L*.WA.WD*WNA.NN0* 

1IU. JU.MU 

COMMON/COUCS/ IK2 .N*2. IFL . JOS . JOC »MF , JSF . JCF , VAL .PMIF .PMINCW. 
ICUMONL.ISI 

C ONNOW/CMC F/CCHi ( II >  » IOPFCR 

COMMON/CMFLX/ I.J.JJ.J1 . J2.NAX0.C0CF »SAT£  »  DCN. 10. JO* (CUT . JCUT 

COMMOM/CLFLX/ IK3. JKJ. JM.FFO.FF I .FF2.FF3.FF4 

COMHOM/CL 1T0/F 1 »F2*F3.FA»F3. TH  .Tl2.TL3.TL4.Vl .V2.V3.V4.V3. 

I IWTYP. ICASC. ITTFC 
C0MN0N/CNC3W/PX.PT 

CONNOW/CNS T I /NWCS » II 0 1 . *M*T X < 1 0. 2 1 » *M* TY 1 1 0 . 2 1 

COMMON/ CNST 2 /NC3HAX .NAXNOO.NAXCLC .NOOOUl . NOBIN. KELOUT .KILIM 

CONNON/COWN/NCONU.NCOWAI 4.40) .NCONNI |0. 4 .4 ) 

COMMON/CO80/NCNTP , AOCMT . PC TA .VNIN.POTS . BC TAP .OAMA.HPTCL . 
llPTCL .NCHK » IORD. JORB. JONL.PINF (101 .PINFI I  IS) . TBAPT 2» 7) 

COMMON /CBATO /RAT |0<  2. B ) .8TPM.BTSC.BTBC.MTPM.FLKPCF 
C ONNOW / C FOOT/ AC URCT .DPMI 

COWMOW/CSt TB/AWlWi I A) .AMAXT 141 . VL 1 14) .VA.MB. TM1 » TM2. 1 1 TTPC . 
lflCV.ISOL.IND.MLCV 

COMNOW/CSUM/SANOL . WSUNBi 32) . XSUMBl 32 ) . TSUNBl 32 1 . A«JM«(44 ) . 
IWSUM 

C0WWOW/CURT/CSUN.CA«|V»CURf . TCUR. TCURM.SVM.CURRI3) 

COWMOW/CU? AG/AACUT <3*4 1 .WCWf .NCFLO.WNCUI .CUTNIW. CUTNAX 
(  ONNOW  CVtL /VIE VI  I41.NLCV.NLCVI.VLCVII 14).VLCVC< 14) • 
iMTVf  .FAWOCCI  IO>.COCFTC<|0>.POUCFC  1 10)  •  IDISTFl  2)  . 

.’WPARtt  .NDON*  14* 

r  OWWOW/FCnwW/NCF  LOl  4  *  *NF  I VI  *1 .  VF  I X I  a  >  .WFLOf  1 44  )  • 

I NF IASI  2. B).v* IASI  8 >. NRCSI 2.B ). FC9 f F« B 1. ICOWOI 44) 
rONWnW/FWir»/NC$CC<32*.NPANCi44t .WPAWL .NCNIT.WtNS.WEWC  » 
|WTNI) .Nsrcr.wsuFF 

f  ONNOW.  C.EwAL/LUWJ.ASrOT.  ICWIFL. NTOUR.  |TC#« 

iAf  tine  . n  ini r. iobjf . i r inc i s* 

rtlwm’M  '  IOPAT  LOW  I  .LON2.LU.If#AlS.wr*ACA«  J.* )  .Ml  II  R 
I  ONNOW /N# OR J/NfRt  * A4).NNAr<3> 

rowwnw/NPKOP  'rPFO<  2. JO*  »tS CC< ?.  10* .ifaCi J.io* . »rwo<  TO  * • 

lADAAf  ■  10  • 

r ONNOW  OA  II  WOBXT.NSCOOIS*  .CGAiiS*  *CGO»  i3* 
t  OWNOW /OB  12  WWF  «  f.’*  .NPAT  «3‘.NAiPA? 

I  ONNOW/)  CHAT  IP  )C  L  *  5  *  •  IADFF  I  5*.  I  I  ONI*  I  12  I 
C ONNOW/ FNASf  /MfN.NAWfrf  .  HUN.  «  V  I  *  •  .ANO*  40*  .WAWT.l  • 
rowwow  l  sui  v  |srw.  IE0I44.  IFEOI. AIN  B*  »|PI)1S»NVA4  .  MNAa.NHi  . 

I  tt>  *NF  .  WUPF  S  .  NOp  I  WO  .  NOP  I WS  .  WOP  I NW 
,  ONNOW  4*  I  WF  I  •»  I  .HP  I  I.E  I.*.  O)  I  ■  SOP  I  ’ 


<  ONNOW/  *1  M  /  M  R*  I  > 

l  ( INNOW  HI  X  .•  HU)  JllS*.  HU)  ?«  1 3  *  .  HOI  I «  I  *»  -  •  HI M  4  *  I  r, » 
i  IINNIIW  'Hi  A  J  .  HUE  5*  IT.  *  .Hill  A*  I  *.  >  ■  HU)  I*  '  •  H»»  Hi  .'<•  •  .  HOI  ‘  ■  «' 

*  ONNOW-  HI  A  4'  IHOf  I  *  .’S*  .  I  HIM  *  2*.  »  •  I  HUE  J<  "•*  .  I  HIM  4.  . 

*  onnow  Hi  x *  kO.nt.lM./n. i*nh i .  1>nH ; . i-hh  ) *  1*nh « . dnh*. 

I  ONNOW  HI  X  »•  WO.WI  .W2.W1.1S.  IV.  1A1*.  #AI>  •  I<».  **/ .  INN 

L  ONNOW 'HI  AS  |F|  A.WOH.  (E-.W.NSf  I.S.NSIIVE  .  N)  A  I .Nt  A  1 1 
l  ONNOW/ Hi  A  I  1  /C  IWF  I  22*  .DIN  I  23  •>(')•)  »  .  Al*)  ■  I  ■  .AU«  .  1 .  .All 

t  AU«  2<  /i.filEi  Si.mil.T* 

C ONNOW/ Fl A  12  AAA* 20I.AAB* 20  I . AN( 20  * . I A5 ■ 20 • 

IIAIA  1  »»/M  '.  |  IRACS'O/.H  INIT/84400.0  •  1CWIFL/0/ 

DATA  LUN|/4/.WENS/,4/.WENC/4/ 

DA1A  HP  l  .PI.HPIS.f  I  2. SOP  1. SOP  l  2 '1  .  3J074fc  J2*;V4H*I  •. 

A  J  .  1 4 13924533897*  J.  4. 7 1 2388*80J844F0.4  •  28  J1 83-1071  793HA. 
Fl . 7 72453830*0331 4.1 • 1 2837*1 4909331 3/ 

PA  I A  I  ORDER/  3  l  / 

END 

SUBROUTINE  SORT  (  N  > 

COWWON/FL A4/ | Ai 23  > . IF! 23  > . I Fuf 3<  23) . I BUF4I 23 ) 
wi-N-1 

N»| 

1  NI-W4I 

2  IFIIAiNI.LE.IAlNlI)  GO  TO  3 
I  I • IAIN) 

I2*IB<N) 

IA(N>* lAINt > 

IFIN)*IBIN1 ) 

IAIN1 >■! 1 
IBINl )*I2 

3  N 1 »NI ♦! 

IF  INI .LE.N)  GO  70  2 
N«N4 1 

1FIN.LC.W1 >  GO  TO  1 

RETURN 

ENO 

DOUBLE  PRECISION  FUNCTION  ERPC(X) 


THIS  F/P  COWPUTES  THE  CONPLE WENT AFT  ERROR  FUNCTION  USING 
*10RMR*TH  CHEBYSHCV  EXPANSION. 

....DESCRIPTION  OF  THE  VARIABLES . 


DOUBLE  PRECISION  CCMB.CHB.X.T.SUM 
CONWON/CHCB/CCHB ( 31 > . I ORDER 
DIMENSION  CHBI31) 

T»TX-3.73D0)/TXI3.73D0> 

CNBlD-l.ODO 

CHB<2)-T 

DO  100  1-3.  I  ORDER 

CMt < I ) -2 . PDOB  T »CHF < I -1 ) -CMB ( 1 -2  > 

100  CONTINUE 
8UM-0.0D0 
DO  ISO  1*1 • 1 ORDER 
SUN-SUN 1C M»( I )*CCHB< I  ) 

ISO  CONTINUE 

E RFC -SUN/ 1 1 . 00042. ODOBX)BDEXP(-XBX) 

RETURN 

ENO 

FUNCTION  ATTR4X0.N) 


THIS  F/P  COMPUTES  THE  FOLLOMINO 
ATTRl X»1)>F(X)  FOR  N-l 

ATTR<  X.2)*F<  XBB?)B80RT <PI )/2. 0  FOR  M*2 

.WHERE  FIX )-2 • 0/SORT IPI ) 4SORT (X)BCXP('X) IERFC (SORT ( X ) ) • 

DOUBLE  PRECISION  IRfC.X.Y .SUN.SOPI2.MSOP1 

DATA  SOPI2.MSOPI/1 . 1 2S3 7*1 4*0*331 3D0 *R . SA224*2343273BD- 

00  TO  (10.20). N 
10  IF < XO.CQ.O.O)  00  TO  40 
IFIXO.OT.34.0)  OO  TO  40 
XwPBLE(XO) 

V-BSORT(X) 

SUM- SOP 1 24TBDCXPI -X  > 4CRFC <  T ) 

00  TO  30 

20  IF  I  XO.CQ.O.O  00  TO  SO 
IF(XO.OT.O.O)  00  TO  40 
T-OBLE(XO) 

X-VBT 

SUM-TBDCXP < -X  *  EMSOPI BCRFC IT) 

30  ATTR-SMOL ISUN) 

RETURN 
40  ATTR-1.0 
RETURN 

90  ATTR«SW0L<MS0PI) 

RETURN 
40  RTTRaO.O 
RETURN 
CMB 


PROGRAM  CNTRLIS. ISO) 

C 

C  TNI*  CONTROLS  XTCtC'  RUWSTRf AM . 

C 

COMMOM/OCNRL /LUM3.ASPOT . I CMTRL .NTOUR. I  TER. ACT  INC » 
ITLINIT. IOBJF .ITINTTSI 

COMMON/ IODAT /LUNI .LUW2.LU* I  TRACS. NIRACKI 32 ) .Ml  TER 
PINE NS ION  MANE  1*3) .MANC  2 < 3) .NAME  3<  J) .NANC4I J » .MANC 5 < J ) • 
|NAMC4(Jl.MAMK  7<  S1.MAMCB4  3>  .  JUNE  <31  .AT  INCIS)  .RUFl  32» 
BATA  NANC I/2MDA.2WTA.2M1  / . WAMC 2 / 2MOU * 2NC S . 2MS  /. 

1  MAMC3/2HIS. 2MP0.2MT  / .NAMf 4/ 2MI0* 3MUE . 2HS  /. 

2  NAMES/  2MSO.2TCU.2MR  /.MANC  4'  2MF  1  •  2MCL  .  2MB  /. 

J  WAHC7/2HTr.2WLU.2NX  /  .MAMCB/  2MRO.  2M0T  •  2M  / 

DATA  LIMIT/©/ 

t 

IFI ICNTRL .CO.OI  GO  TO  10 
IF  i  I  ERROR .  (0  .  t  >  GO  111  700 

OO  TO  < tOO. 1 10. 130* 130.210. 220.2J0. 240*. ICMfR 

r 

C  FEAR  All  MECESSAAT  BATA. 

|0  WRITE  II  UN|  .11  * 

it  ) orna t i / / / ?N  i  *PSTrMir*  starts.  .3*. 20  •  /  * 
irWTRt-l 

f  AI  I  I  Xf  C<S. NAME  I  ) 

|(H)  WRIff  U  UNI  .101  1 

INI  FnFWATiSl.  FINISHED  HEAPING  All  BATA.  I 


W»t  IF  **  IW1  .  1 1 


E12 


1**1  FOKMAJi  'Mltl  » 

M  Al>>  I  .  •  i  *  ,1  tit 

1*1  Ill  »  !«»*..  I  7t>.  140*  M0».*SMM 

i  l)M*  lllf  I  .Ilf  s5  t  II  ill. 

Iii‘,  KNIM  -• 

i  >M  I  Uil  clilMM.'l 

lit*  UK  I  tl  U  I1MI  •  I  t  |  t 

III  1 1  >K  ft  A I  I  5X  •  (WNSS  FIELD  HAS  MIN  DHTAINIU.  > 

I  .H  If)  1 60 

MAH  SUM  All  f’llKHI  lAi  S. 

I  0  ll  NIKI  i 

•'All  I  tiltH.NAMLJ) 

I  IO  Will  IF  <LUNI  .  lit  l 

lit  IIWMIlM.  4  tHISUf  0  Kt  AO  IMG  SURFACE  POTENT  IAiS.  *  » 
141  IO  | ad 

SCI  UR  INITIAL  CUCSS  FICiO. 

140  ICNTfcL-4 

I  Wl  t  *  FC  i  8  •  NAME  4  > 

ISO  UR  I  1C 1 1 UMI » 111  * 

III  IOMMKMi  ftNISHCD  RCA DING  INITIAL  GUESS. •> 

GO  10  |  '0 


L  ftA.HHf  I  If  RAM  ON  STARTS. 

IaO  1 TFR-0 
NTOUR-O 
1  70  108  Jf  >0 

ACTlHf-0.0 

mit((iunm;i> 

n  F0RMMTI//20  •  »3X  *  ' MAJOR  ITERATION  STARTS. ' »5X  »  20  '  •  '  //  ) 

c 

GO  TO  < 200. 200 .205» 2201, KSPOT 
.'00  CALL  CICC  <  1 1  •  I  T  INC  1 
NI0UR-NT0UR41 
1TER-ITCR4) 

CALI  POISSON  SOLVER. 

’03  ICMTRl  -3 

CALI  FXfC<8. NAMES) 

C 

l  COMPUTE  ROTCNTIAL  DERIVATIVES. 

.'10  I  CUT  At  -4 

CALL  EXECI*. NAMES) 

C 

l  COMPOTE  CURRENT  AT  *PCP*  AND  ORGANIZE  TOTAL  CURRENT  FOR  SECTOR. 
.'70  ICNTRL-7 

CALI  EXEC <•• NAME  7. 0> 

r  COMPUTE  ORJECT I VC  FUNCTION  AND  RESET  NCCCSSARr  PARAMETERS  FOR 
r  NEXT  ITERATION. 

210  ICMTRL  -• 

CALL  EKCCIS. NAMES* 

C 

I  CHECK  CPU  TINE  PER  ITERATION  AND  tCCUNULATED  TINCUN  SECONDS). 
.'40  CALL  r  ;CC<  11  •  JUNE) 

BO  ,*Q  1*1. 5 

•TINE 1 1 )-jT|HE< 1 )“ I TIRE 1 1 ) 

300  CONTINUE 

CPUT -AT  I ME  <  2  >  /60 . 04AT INC  < 3> 44O.0BATINC! 4 )*1440.0BAT INC  <  3) 
ACT  (H(>  AC  TINE  4  CPU  T 
I TRAC -NT RACK I  21 ) 

ISECT-(ITER-I)/J2 
It* (TER- {SECTS 52 

CALL  f  XfC  < 1 . LU»  DUE • 64  » I TRAC* I SECT 4 32) 

BUT  I  II i-CPUT 

CALL  EXEC  I 2.LU.RUF  »44» I TRAC* I SECT 432) 

CALL  CXEC<t.LU.RUF«44.ITRAC.I8CCT*44> 

BUTT  ID-ACTINC 

CALL  rxfCf7.LU.tUF'44.irftAC.IS£CT*44> 

MRITEILUNI.IOIO)  ITER.ACTIME.CPUT 
1010  FORMAT  1 5X  . ' f  OP  ITERATIONS-' » 13. 5X. 'ACCUMULATED  TIME-' r 
1*10.1.'  MIN' »  5*  « ' CPU  TIME- ' »F10. I  * '  MIN') 

(FI tODJP.CO.I)  SO  TO  510 

C  IP  ACCUMULATED  TIME  HAS  EXCEEDED  THE  TINE  LIMIT*  STOP  PROGRAM. 
IP  ILIHIT  .CO.  1  .AMD.  ACT  (ME  .ST  .  TLIMIT)  00  TO  MO 
GO  TO  200 

C 

c  MAJOR  ITERATION  EMRS. 


310  WRITE* LUNI *1020) 

1020  FORMAT  1 3X  * ' BBP INAL  CONVERGENCE  HAS  DEEM  OBTAINED.**' I 
STOP  OOOl 

400  WRITE (LUNI. 1030) 

1030  FORMAT I SX. '••ACCUMULATED  TIME  HAS  EXCEEDED  THE  TINE' 
I'  LIMIT. ••') 

STOP  0002 

700  Mrirr<tuNi’i04o> 

1040  P ORMA T ( 9X ■ ' * *CRROR  IS  DETECTED. .. .STOP  RUNNIN0  THIS' 
I'  JOS.**') 

STOP  0003 

END 

ENDS 


F  TN4 

•FMAI  ACMA3.0) 

PROGRAM  SOI VRIS. 130) 

C 

C  THIS  S/P  SETS  UP  VARIABLES  UN I CM  ARE  NEEDED  TO  CALCULATE 
C  POTENTIAL. 

C 

COMRON/ACHAJ/iei 7500*4) • I NORTH  254) .POT! 2540) .AT! 2540) * 

!E r< 7340 >. AMI 3R40).RU0R*< ?34 )»C!ON< 1 2D > .CELC H 2* > 'CPRO! I7R). 
7CPROMI 1 7R) *CSECI ITS*  tCSECRT ITS) «C*SC< 1 2D ) .CBSCMI ITS)* 

W.PNOI  I7S>*CPN0M<  l20>.P*ECTII2S>.CStCTCI?8),FtNlTil7#>. 

4XSPI  l?S)*rSPi  |7Rt*xEPM2*).VfP<  I7S).ISSC0(44>  .  VSSCGI44)  . 

3 *r S40I 44 > * TF SCO! 44 ) » SLPSCOI 44 > « 1ROOT < I 2S ) » IOK < I 2S ) * 

ANfTDf  Hf  1 1  ?Sl  . NCONUI  1 2D )  .NC04MM  I7D)  .MCONW!  1 2S)  .NCONX I I2S)  • 
/NPMTSI  l?D)*NCNICI  I7S)*N9CCT<  l2G).NCOND< I2R>.NPFAN<44.2) . 
RNSUNP 1 1 2* > *  1 SL P 1 44 > » I VC C 1 44 > *MP AT 1 44 » *NCP % > ?• » .NCNAi 1 2S) r 
PNC MB i JS4I.NCNCI 12S).NSPI I2S).NEP< |2S)«NBURPI I7S» 

I  l)MMON/CN3r?/Nf SMAX.MAXNOD.MAXELE .NODOUT .NODIN .KELOUT »KEl  IN 
(  UMMON/ lODAT /l UNI .LUN2.LU. I TRACS .NIRACK! J7) .Ml I ER 
I IWNNIN/PSIM  V/  ISTH.  IPO  IBS*  IBPOT.RDf  DT*CPOI8*NVAR»  JPHAX.NBC  » 

I MOMD.  MOD*  '1.  NOD  I  NO.  NOB  I  NS.  NOD  INN 
DIMENSION  IBCI.’V4>.  IRC  I  756*  »YRC 1 2541 
DIMENSION  MlM.’Ol.  IAl3«7)»NC<M?*R>*l  BIB  144) 
ft  I  ME  NS  I  ON  NAME  ll  J>. MART  71  Tl.EMRRl  734 )  •  I  DUE  R I  234  *  •  JDUMM  7341 
t  TMIIVAI  FMI  I  I  DtNR. I  RUE  >.<  I  ROOT  i|A> 

I  (Nil  VAI  I  MCE  >  I  NOD  A.  IRC  l.l  111.  JA.  J*L  )  .  I  fll<  I  •  i )  >M.  >  *  « f  T*  TRI  t 
DATA  NAME  |/.*MPO«  JNIS.7MI  .HAM*  7/2HIC  •  7MCG.7M 

r. 

MR  I  If  II  ONI  .V9V» 

9W  t  ORMA  1 1  "-J1IV**  MARIS  .5X.70',  » 


14-01  SS»  | 

NS I UP- NVAR/ 756 t| 

ISCCI'O 

1ST  Aft  I  -O 

IK)  40  N-  |  .  NS  T 04- 

CALL  FXCCI  I  .1  U.DUf  K.M.’.NIRAI  K««».  ISFCI  » 

IK)  30  1-1.754 

ATI  ISTART4I  XDU4RI  I  » 

50  CONTINUE 

ISECT-ISF C14G 
I START" IS TART )256 
40  CONTINUE 

C  MR I  IE  I LUNI »  733  >  I  AT I  I  » • I  *  I .NVAR » 

C  ?33  FORMAT! /t IP  1 01 13.3)) 

NS TOP-NBC/ 25641 
ISECT "0 
{START-0 
DO  60  N» I .NS TOP 

CALL  EXEC  I  1 . 1 U. 1 BUFR  > 256 .NTRACK 1 4 ) » ISIC I » 
CALL  EXEC < I »LU*  JDUFR. 256.NTRACK I  *  *  » I  SI  I  1474  1 
DQ  70  1-1.256 
I 1-ISTART4I 
IBCIID-fDUFRM) 

JBCI II > ■ JBUFRl I ) 

70  CONTINUE 

ISTART-ISTART4254 
ISECT-ISCCT44 
60  CONTINUE 
ISCCT-48 
ISTART-0 
DO  80  N-I.NSTOP 

CALL  EXEC!  1  »iU»BUER.5I2*NTRMCMP»  *  I  SECT  > 

DO  90  1-1.254 

IRC < I START  41 >-BUPR( I) 

90  CONTINUE 

ISTART- I START 4254 
ISCCT-ISCCT48 
80  CONTINUE 

C  WRITE  I LUNI .738)  NBC 

C  738  FORMAT! 'NBC- ' .15) 

C  UR I TEILUN1 .739)  < IBCI I ) > 1-1 .NBC) 

C  739  FORMAT I ' I DC '/I 2513 I ) 

C  UR I TEILUN1 . 740  >  <  JBC I  I > . I - 1 > NDC  > 

C  740  FORMAT! ' JDC ' / ( 2515) > 

00  100  I -1 .NDC 
N-IDC! 1)41 -N0DIN8 
C  N-IDC! I ) 

NODE -JSC If) 

AT (N)-AT !N)-TDC! I >BPOT (NODE ) 

100  CONTINUE 

C  UR I TCI LUNI .753)  (AT! I > .1-1 .NVAR) 

NS TOP-MAXNOD/254 4 1 
ISTART-0 

isccr-o 

DO  110  N-I.NSTOP 
DO  120  I-1.2S4 
DUPRI I ) -POT  < 14 ISTART) 

120  CONTINUE 

CALL  EXEC! 2.LU.DUFR.5I 2*NTRACK III). (SECT ) 
ISTART- ISTART42S4 
I SECT- I SEC T4S 
110  CONTINUE 

C 

C  00  TO! 200.300) » IPOISS 
C  FOR  SOR- METHOD. 

C  200  CALL  CXECIS. NAMED 

C 

C  FOR  ICCG-MCTHOD. 

300  NSTOP-I NVAR4 I J/23441 
I8CCT-0 
ISTART— O 

DO  310  N-l.NSTOP 

CALL  EXECI I *LU» IDUFR. 254.MTRACR(4) » I SECT ) 

DO  320  1-1.254 
I A! I START 4 1 )■ IDUFR! I ) 

320  CONTINUE 

DO  340  1-1.254 
DUFRI I >-AY( I START 4  I ) 

340  CONTINUE 

CALL  EXEC! 2.LU. DUFR.S12.MTRACKI 7) . I  SECT *2 ) 
ISCCT-ISCCT44 
I START- I ST ART 4254 
310  CONTINUE 

NSTOP- JPMAX/2544 1 
(TRACK -NTRACKIS) 

isccr*o 

ISTART-0 

DO  350  N-I.NSTOP 

CALL  EXECI I.LU. IDUFR. 254’ I TRACK* I SECT) 

DO  340  I-1.2S4 

JAI I START 4 I >-lBUFR< I ) 

340  CONTINUE 

I  SEC T- 1  SECT  44 
■START- ISTART 4254 
IF  I MODI N. 74  > . NE .0  *  GO  TO  350 
I TRACK- 1  TRACK* 1 
I 8CCT-0 
350  CONTINUE 

C  WRITE  I LUNI. 753)  1P0TI I ) . I-l .NVAR) 

C  UR 1IC I LUNI*  751)  <AP« I ) . I- 1 .NVAR ) 

C  WRITE (LUNI. OSS)  I JAI I ) . I -1 . JPMAX ) 

C  SSS  FORMAT! '*BJA*8'/<23IS)> 

C  UNITE (LUNI. R79)  I IAI I ) . 1-1 .NVAR) 

C  STB  FORMAT! ' *• t A** ' /< 7313) > 

IFCfPOfSS.CO. 2)  CALL  CXCC<S.NAHC2) 

! TRACK -MTRACK! 3) 

I SECT -O 
ISTART-0 

RO  400  N-I.NSTOP 

CALL  EXEC! 1 .LU* BUFR. 31 2. (TRACK. t SEC 1 1 

DO  410  I-| .254 

AMI  1ST ART 4 1 )-BUERt I ) 

410  CONTINUE 

I SECT- ISECTIS 
I  START -I  START  4254 
IE  <  MOBiR. I?) .NE .0)  GO  TO  400 
1  TRACK- (TRACK 41 
I  SECT-0 
400  CONTINUE 
C 

NSTOP-NODINN/841 
I  SECT-0 
ISTART-0 

DO  420  N-I.NSTOP 

CALI  I  If  CM. I  U. I  DU*  .44.|fRACS!3.|SCCt ) 

N-0 

DO  430  l-I.D 
I I -I St ART ♦ I 
mi  4.10  j-i.a 

M-M#  I 

m  *  II.  I*.|  BIN  <R> 


E14 


I'l'  40  K  l  .  • 

IMI4  t  ■  K*  .  1  Ni  t 

I  <  1A«  «  K  •  'Mil 
4  >  .  0*1  |NI<t 


*■  iMt  iNi[ki,.k  mil  i '»  <-k t r . 


IF  i  j.Mf  .  I  »  GO  TO  2.-0 
KSt-wir  -2 


•  l*At  ISIIHI  IF  Ot  •  Mi  I  I  .  M> 

Sint.1  •Slm.’froi  <  Mf  I  l  .  *t'' 

tAO  lONllNUf 

1  2  •  •  illfll  »  A<  1  I  ■••-.U*.’ 
M  S*SU*1  Mir  I  N  . 

F  l»l  IN  •  «f  III  -  N  <  f*)«t  l.A4F<J  3 
it  S*£f SfAPS'Kts. 

'•jo  roMilMUt 

no  j 7o  wi.nvaf 

10* I A i N  > 

11-10*1 
I2>l*lNf 1  <  -t 
NO*MO(l|N$-  I  FN 


C 

C 

c 


$un<4>  !.*'•»  PO  F  *  l  F  t  •  *»  OT<L  |  '  FFUTtNf 1  I  FPOT  iM  2  •  if 
t  At  1J  'll  Kit  *  L  I  FPOI  t«l  fF-OTtNf  |  >  fPOT  iff  -  I  »  » 

00  TO  .’’0 
2.-0  KSfAKT-l 
I  'If  J 

-tt/A-At  I  r*  *  *  f  PO  f  4 1  f  1  •  fPOT  1 1  -I  )  *F*OT  l  N>  ffor  f  L  -  If 
I  At I JiRtFOTtt  lfFOT«L  -2»fPUT  tfff  I  I  FPOT < N-l I > 
RCS«SUA-POT<N» 
f'OT  in*  -fOT  (  Ni  fO«COA»RES 
EPS.CPSFARStRCS  * 

N*Nfl 
L  *Lf  l 

SUA-Al  l.'  >«<F-OT<t  *t  >  ffOT«L  -l  IfPOTtNf  llFPOTtN^*  I* 
1 A»  J i >*tFOr<L  > )P01  *  A  * fPOT ( Mft ) fPOT. N- 1  > > 

2  '0  Rts-siMi-rori  Ni 

port  Ml  -POTtM)  *OfteGAiR£S 

CPS.EPSfADSIRES* 

no  200  K«KSI ART .fcMA* 

N*Nf  1 
A»A*1 
L-Lf  l 
as-am 

IF  i  J.  CO.  4  .  AND -Ik  -  CQ  -  KAAX  >  HS-NF2 

sun-At  i2>*tror<tf l 1  frortt- i  i  .PortAS  i  *pot<a-i  i  n 
I At  1 3  »  * ( POT <L  *  fPOT  H>FPOT<Nf 1 IfPOT(N-l)) 
RES-SUN-POT  ( Nl 
POT  4 N * -PO T ( N ) f OHCOARRCS 
CFS«(NMM(ACS) 

:ao  comtinuc 

N-Nf  1 
tl«fl*  1 
L-Lt» 

IF  t  J . EO. 4  »  00  TO  203 

SON* At  1 2  > • ( POT <  L  f  1  • *P0T<L-1 IfPOT < N*2 > fPOT < N-l I  >♦ 
lAt 13 ■ •<  POT  t  L I f POT i H I f POT  <  Nf I > fPOT  t  N-l > I 
GO  10  2«0 

283  SUA-At  I2»«<POr<tfl  >*POTT|.-l>fPOT<L4J)fPOrjrt-l  Ilf 
I A  t 1 3 l •<  POT i L  > fPOT ( Nf I >  fPOT <L*21 fPOT (N-l I > 

2*0  RCS-SUA-POT<N> 

POT ( N I -POT  < N  >  f 0ACQA9RCS 
EPS-CPSf ARS(RES) 

230  CONTINUE 
GO  TO  230 

FOR  THE  INNER  EDGE  OF  GRID. 


300  CONTINUE 

IFtII.EO.il  GO  TO  343 
00  310  J-l.R 
*AA»- JKAAXt  J> 

N-Nf  I 

IFtj.NE.il  GO  TO  320 

SUN* At  12 1  At  POT  <  Lf 1 1 fPOT  <  L- 1 >  fPOT ( Hf  1 I fPOT  CN-2llfA< 1 3  )R 
I tPOTtL IfPOrOflfPOMNfl I fPOT <N- 1 1  I 


RE 5 -SUN -POT  <  N) 

POT  t  Nl -POT ( N I f ONE GARRES 
CPS-CPS* A0S  t  RES  > 


N-N*l 

L-i.fl 

SUN- At |?)RtPOT<L*l)fPOT<L-l IfPOTtN-I I  If At 13)8 
I t  POT (LI fPOT <  Nf  1  I 4P0T I N-l ) If At  1 4  )  «POT  t  N I f A  t 131 RPOT <N4 1 1 4 
2At |*)aP0T(M»2l 
GO  TO  330 
320  L-LfJ 

SUN-A< 12)*tP0TtLf I )*POT<L-l )*POT<H)*rOT<L-JI I4R« t)l« 

1 <POT  <  L 1 fPOT  (L-2) fPOT  <N4i I fPOT < N-l 1 1 
RES-SUN-POTCNI 
POT  t  N  * -POT  <  N 1 f ONCQARRF  S 
CPS-CPSfARJt  RES  * 

N-Nri 

L-L*l 

SUN- At l2>RtPOTtL*l>fPOT<L-l>*POT<H-2>)fA<131R 
I tPOTtL > fPOTCNfl IfPOTtN-I I  l*A( 1 4  I (POT  t  N 1 f At lS)RPOT<Nf 1 14 
2AI 1*  >*POT (N42I 
130  RES-SUN-POTtN) 

POT  f  N  > -POT  < N  >  t ONCGAtRCS 
IP5-CPS*A0S<RES) 

OO  340  K-J.KIMX 
N-Nf  | 

N-N42 

L-l.fl 

NS-Nf? 

IF l J .EO. 4, AND.* .  EO .KAAI I  NS-Nf 2 
SUN— At l 2  *  *  <  POT  t  L ♦ 1 IfPOTtt-l I  1**1 1 3 1* 
t  <  POT  t  L • fPOT ( Nf 1 1 fPOT  <  N- 1 1 i*A( I  7 1  SPOT t Nl f*< 131* fPOT TR* I » ♦ 
2P0TIN-I » if At  14 1  St POT f NS  I fPOT IN-2  I  I 
RiS-SU*-POT<NI 
POT  <  N • -PO  T  t  N I f ONCGAtRCS 
CPS-*PS*A*S<Rt§1 
140  CONTINUE 
N-Nf  I 
N-Nf  2 
l  -l  ft 

IF  t J.C0.4I  GO  TO  342 

SUN-Af  12  »•  tPOTtL  f  I  * f Pt)T  t L  - 1  »  fPOT t Nf  2  •  •  f At  13*4 
1 1  POKE  ■  fPOT  t  Nf  I  I  fPOT  IN- |  >  If  At  14i  *POT  <  Nl  f  At  13  I  SPOT**- 1  ** 
2** 14 i#POT tN-2> 

GO  TO  344 

342  SUN-At 12  HI  POT  it f l ifPOTfi ~|ifFOT(L*Ji if At  111* 
t  •  POT • L if PUT tt»2*fP0TiN-| MlAi |4i«POT<Nf| If 
2At|3>*POTtN  | lf*t 14  I  SPOT tN- 2* 

144  PI S-SUNPOTtNl 

POTtNl-f  tlf  lNlfONCGA4RIS 
f PS-IF  3*ARS  t  PI S  » 
l|0  rONTINUf 
l ft*)  CONTINUE 

>:  f  on  tnf  (nne  pno-.t  Git  in. 

c 

143  T  ONT  IMIE 

NAr*tmlfl|Nv  I 

I  *■* 

Ml  130  N-fNin  INII.NA. 

1-1*1 


SUN-0.0 

no  340  I -1 1.12 

SUN-SliNfANt  I  >*PCJT<  lAl  I  •  i 
100  CONI INUC 

SUN-  t  A  Y  t  N  *  *  SUN  >  'Altl  10* 
fcf  S* SUN- F  OT  t  NO ) 

PO  T  4  NO  » • SUN 
C  PS-EPS  fARS I R|S I 
170  CONTINUE 
C 

C  U»l Tf tlUNl .988)  I  TER .EPS 

C  «80  FOPNATt  ITER-  .I3r3*.  CPS-  • lPf I  3 . 3  I 
I F  f  ITFR.Gt.lTNA*>  GO  TO  310 
IF  f  CPS .L  T . REPS  •  GO  TO  310 
GO  TO  2000 

500  CALL  EXECI8.NANE' 10. ITCRi 
C 

310  CONTINUE 

CALL  Elf Ci8.N*nC'20.ITER> 

STOP 

CNO 

END* 


RCNAt AENA3.01 

PROGRAN  WCNA443. 1301 

CONNON/A€NA3/IOt 2340.4  1 . I WORK  1234  1 .POT t 2340  I . AP t 2340  I « 

ICrt 2340 > *AN< 3S40 > .RWORKt  234* *CION( I2S>*CELE< 129) *CPRO< 1 20 • 
2CPR0N1 120I.CSECI I  20 > .CSCCNt I  29 ) .CRSC t 126  > • CRSCNt  t 20 • • 
SCPHQ< 1201 .CPNONt 1201 .PSECTt 120) .CSCCTt I 2«».PCN/Tt t20»* 

4XSP 1 1 20 1  *  TSP 1 1 20  >  * IEP 1 1 20 1  *  TCP  t 1 28  >  » iSSEGt  44 i • TSSFOt  44 • . 
SXCSCGt  44 1  *  VESEGt  44 1 >  SLPSCGt  44 ) . I  ROOT t 120 > • I OK t 120  * • 

4N0DCNT ( 1201 .NCONUt 120 1 . NCONUt 120  > iNCONMl 120I.NCONit 12HI • 
7ffCNTS<  I2B>.N£NT£<  1201  .NSEC  Tt  1 28  *  >  NCONO 1 1  20  >  •  MPPAN  <  a  4 . 2  >  • 
BNSUNPt 1201 » ISLP4  44I • IVCC (44 ) »NPAT  <441 .NCP< 1 28 > iNCnAi  t 28  > . 
9NCNR(384lrNCNC<120I.NSP< I20).NCP< 120I.N$URF( 120) 
C0NN0N/CNST2/NC8NAX »NAXNOD*NAX£L£ .NOOOUT « NOOIN.KELOUT .KCL I 
CONNON/ I0DAT/LUN1 .LUN2.LU* I  TRACS. NTRACK <  32  I .Nl TER 
CONNON/PSOLW/ISTH.  IPOISS.  IRPOT  .ROC0T .CPO  IS  .ffVAR .  JPNAIi .  N*C . 
I NONR. NODES .NOD I NO. NODINS. NOD INN 
OINENSION  XG( 23401. TO <2340 1 
DINENSION  RUFR(234I • IRUFRt 1201 
DIMENSION  NANC(JI.LIST(3I 
EQUIVALENCE  <AN(l).X0).(AN<23«ll.T0l 
DATA  NANE/2HDA.2HTA.2H3  / 

C 

CALL  RNPARt L 1ST ) 

URITE<LUNI,9*»» 

99*  FORMAT  <  20 ' • ' »3X# '  *WENA4*  STARTS  ' .3X . 20  .1 
ICODC-L 1ST ( 1 1 

CALL  EXEC(I.LU.!DUFR.I20.NTRACR(1*I.I4I 
tHjntcni  TER l  -C  I S T < 2 1 

CALL  EX£C<2.LU> IRUFR . 1 28 .NTRACK <191.14  1 
NSTOP-NAXNOD/234* t 
(START— 0 
ISCCT-O 

NTR-N TRACK < I CODE  I 
DO  100  N-I.NSTOP 
DO  110  1-1.234 
•UFRt  X ) -POT  < I f I START  I 
110  CONTINUE 

CALL  ExEC ( 2.LU* DUFR.3I2.NTR. (SECT  I 
I ST ART* I START  *234 
ISECT-ISECT *0 
100  CONTINUE 

IF  < I CODE .CO. 10)  OO  TO  300 
C  WRITE  t  LUNI .1511  (POT ( 1 1 . 1-l .NAXNODI 

C  131  rORNAT  t IP  IOC  I  3.31 
NS  TOP -NAXNOD/234* I 
IS TART -O 
ISCCT-0 

DO  140  N-l .NS TOP 
DO  170  1-1.234 
•UFRdl-POTf  If  IS  TART  1 
170  CONTINUE 

CALL  EiCC(2.LU.tUFR.312»NTRACK< 11 l.ISCCTI 
CALL  EXEC< 1 <LU.DUFR*31 2. NTRACK < |4>.|SECTI 
DO  ISO  1-1.234 
XOt 1*1 tTAATI-RUFRill 
100  CONTINUE 

CALL  C*EC< I .LU.RUFR.3I2. NTRACK 1 131. I SECT  I 
00  1*0  1-1.234 
rGr ! f IS  TART » -RUFRf 1 1 
1*0  CONTINUE 

ISTARI-IST AR f  f  234 
ISECT-ISECT *0 
140  CONTINUE 

NS T OP -NAXf L E / I  20* 1 
DO  200  J-1.2 
I  START  «0 
I SECT-0 

IF<J.f0.2i  rstcf.40 
DO  210  N.I.NSTOP 

CALL  t lECt I.LU.  IRUFR. 1 20. NTRACK < 1 4 i. I  SECT  I 

DO  220  I -1.120 

IG.  I  *ISf  ART.  Ji  •TptlfRt  |  ) 

220  LONllNUf 

I  SECT.  I  SI  C  T  •  2 
1ST  AR  1-15  TART  f  I  28 
210  ttJNllNl* 

.'*>■'  liMIINUC 

2  It)  1*3.4 
I  »  TART  •<> 

ISICT-ft 

»F  .  I,|  f  Mi  |S|f  I.*,) 

no  240  N-».w*;for 

r  Af  l  I  •«!-.  I  .(  M.  IRtR  R.  l.-A.NIRAt  f>  •  14*11.  I -.ft  I  - 

HI  2*#0  |  .1.120 

IT.-  I  »  IS  I  A*  I  .  I  <  •  |  put  K  ,  |  , 

■  I  on r  I  Niff 

I  .f  t  I  I  .1  t  T  f  2 
I  *»  TA4  I  IS  (ART  t  |  20 
■4ft  I  UN  I  |  At  If 


E15 


HI  MIN  M  rtt  m  l'  At  It  k  .11. 


thi  ;  •,  r  generates  potential  I unmtu*  plots,  ime  satellite 
itMHfIL*  IS  ALSO  PLOTTED  U1IM  IM4  CONTOURS. 

l-ONNON  ALNA4/POT4  2360‘.*U(  ;*SAO»  .V042SA0> .  I G  <  -560  •  4  >  • 

I  *f  (  30*30  l.*P«  30  T»YF(*.0>  •  1 PUF  P<  SO  *  •  !L  <  50.10  * 
LO«mJN/l«LM.NNI(  |Ot.NNJl  10t.MLtHIT.KNAX.DX.DY 
COflHON  HL  AS.  HOUTER  (  10  •  .NNESTI  10  >  «S(  4. 4  >  .NCONNt  10.4.4  >. 
INCONAt  1  301  .  |f.Al4> 

i.  ahwON  PLM5  PUF  -’<1.  I  I.  1DUF  1 1  -3 »  •  IDUF2423T 
COMMON  F ILC2/INAX .MB. I  1 »N£SNA* . HAXHOO .NA*£L E .NODOOT 
UIIWON  f  LOTl/IPLOTi  1T.NAK.  ( MA *  1 > -MAX 1 .NS • NA> IS VH. IFL AG 
1<  l  ML  NS  I  ON  XPP  (41.  YPP  (  4  >  .CNF*  <  30  > 


zh-~ i .oe +28 

SEP.-O. i 

if nsiA.to.»>  go  id  io 

AAX-A.S 
AAT  -3 . S 
SC-1  .6 

go  ro  20 

10  AAX-2-0 
AAY-1 .0 
SC-0.3 
ro  sx-scaox 
sy-sc«ot 
scz-t .o 

CALL  PAPLTtNCN.CNPT 

IF (MN.EQ.lt  GO  TO  47 
CALL  START 

CALL  SVNNL  <  0 •  0.0 . 0 .0 .  14.  ' PlCASC  MOUNT  BLACK  L 10- INK  PENS' 
1  BROAD  IN  POSITION  l  ANB  EXTRA  FINE  IN  POSITION  2'.90.0.80> 

CALL  PLOT (0.0. 0.0* -31 
CALL  NCMPENI 1 > 

CALL  PLOTIAAX.AAT.-3T 

DO  40  I-I.IFLAO 
N1  -  1  ♦ ( 1-1 >«NS 
N2-NSM 1-1 T*NA 
X 1  -FLOAT C IDUF14N2T >*SX 
Y I -FLOAT ( XBUf 2<N2> ItSY 
CALL  PL0T<Xl.Tl.3> 

DO  40  N-N1.N2 
XI -FLOAT ( IDUFMNt  TPSX 
Y 1 -FLOAT  I IDUF24N TIPSY 
CALL  PL0T1XI . VI .21 
40  CONTINUE 

CALL  FL0T<O.0*0.0.JT 
IFdSYN.NC.1T  GO  TO  43 
CALL  PLOT! 10. 0*0.0. 2> 

CALL  PLOT <0.0*0 .0* 3t 
CALL  PLOT <0.0* 10.0.2T 
CALL  PLOTIO. 0*0.0*31 
43  CALL  NEUPCN42T 

47  DO  30  I-l.IENO 
I I-1ENDM-I 
NI-NNl ( II > 

NJ-NNJt IIT 

IF ( I I >E0. I T  GO  TO  70 
NN-2 

ifiisvn.eo.it  NN-1 
INI-NIP? 

JNI-NJP? 

INAX-1N1 41 
JNAX-JNlM 
00  TO  00 
70  INAX-NI ♦  I 
JHAX-NJM 
80  DO  90  L-l.INAX 
DO  90  H-I.JNAX 
ZPtl.Ht-ZN 
«0  CONTINUE 
IP-4 

IF  I  IS VH.EO. 1 T  IP-3 
tFlII.EO.IT  GO  TO  780 
IF  « I  I .EO.NCSMAXT  GO  TO  10 O 
A  I -NCONNT 1 1 » I . IP.2T4I 
00  TO  HO 
10O  M-l 

110  K2-NCONN4 II. IP. 21 

11- 10(41. IT 

12- IQ4M.21 
I  4-10*41 »•* 

(0-XQ4 111 
YO-TG< II T 

POX  * i *0< I?i -X0T/2.0 
DOT-1 Y0( I4T-Y0T/2.0 
IFIISVN.NE.I T  GO  10  IIS 
*0-0.0 
TO -0.0 

ii*.  po  120  >•»!.»? 

IFiISTN.CO.il  GO  TO  124 
11*1 
J.*-4 

<0  TO  I.’* 

i.*4  ji-r 
T.*  ■  i 

I  J0  DO  |  to  1*  II  .  »2 


i||.J..**T  DO  TO  140 


t*-«i  1X1  IM>  l  A  l.u 

It  •  IA.I  0.3  «  I.IT  III  J 
N  lt.4K.IAl 
l.«i  III  I  rlj 

|  *0  It  •  I  I  ...I  •  <.|l  lit  |  v 

N  j 

J’*JJ  I 

IT  >  .12.1  I  .  il  »  1*0  III  I  '4 
PO  I  ’2  J»  II  •  J.* 

M«NtN»  OMNI  1  1  .  _!..*>  Nt  IINNI  II.  •.  1  '  M 
I  I  UNI  INU1 
1  *4  J1  -NCONNI  I  I  .  J  J.  I  > 
i.’.NCONNt  l  |  •  .1  T«  > 

DO  17*  J-JI.J2 
N-Nt  | 

If  tK.HI.  j*  GO  TO  I  *0 
1 7*  CONTINUE 
| 78  N-NCONAlNT 
GO  10  100 

17<»  M-tk-HCOMMl  1  1  .  JJ.l  >  T*?tNCONNt  11  .  JJ.JT 
ISO  l-IFIXi  <  XG(NJ -«(>> /ppx  tO.  1  It  I 
N-IFIX((TGlN>  -TOT /DDT  tO. 1  1 1 1 
ZPU  .  N>  -t  01  >  NT 
1*0  CONTtMOL 

IFtjj.E0.3T  f.O  TO  120 

go  to  1 1 90 .  roo  .no.  220  >  •  j  j 

190  LI-0 
N1--2 
GO  TO  230 
200  LI -2 
Nl-0 

GO  TO  230 
210  L 1-0 

HI -2 

GO  10  230 
220  LI --2 
Nl-0 

230  Nl-JJ 

N2-JJM-JJ/4P4 
N1 -IG<  K  *N| T 
N2-IU(K.N2> 

L2-LFL1 

H2-N4H1 

2P <L2. N2 T- l POT <N1 TtPO? « N2TT/2.0 

L3-L4LI/2 

N3-NFN1/2 

ZP(  L3.N3  T  -  4 ZP  <  L2 « N? ) FPOT  (NTT/2.0 
120  CONTINUE 

DO  240  L-1.IHAX.2 
DO  240  N-2.JN1.2 
Z1-ZP4L.NI 
Z2-ZP<L.Ntl 1 
ZJ-ZPIL.N-IT 
IFtZl.NE.ZNT  00  TO  240 
IFCZ2.EQ.ZN.OFt.Z3.EO.ZNT  GO  TO  240 
ZP<L.N)-<Z2«Z3t/2.0 
240  CONTINUE 

DO  230  N-l.JMAX 
DO  250  L-2.IN1.2 
Z1-ZP1L.HT 
Z2-ZP4L»I.H> 

Z3-ZP1L-1 .NT 
IF4ZI.NE.ZNT  00  TO  230 
IFIZ2. CO. ZN. OP. Z3.EQ.ZN)  OO  TO  230 
ZP(L.NT-(Z2FZ3>/2.0 
230  CONTINUE 

DO  2 AO  L-l.INAX 

*P<L  T -XOt DDXiFLOAT <L- 1 > 

260  CONTINUE 

DO  270  L-I.JNAX 
TP<L ) -TOFODYPFLOAT (L - 1 T 
270  CONTINUE 
OO  TO  320 


>  DO  290  L-l.INAX 
N-ILTL.JNAXT 
XPCL  I-X04NT 

>  CONTINUE 

DO  300  L-t.JHAX 
N-IL  < INAX *L T 
YP4L J-YG4NI 

>  CONTINUE 

DO  310  L-l.INAX 
DO  ItO  M-l.JNAK 
M-IL4L.NT 

IF (N.EO.-l l  00  TO  310 
IF (NAX.CO.OI  GO  TO  300 
00  303  LL-I.HAX 
LI-4LL-1 T824I 

IF (N.EO. I PLOT (LIT)  GO  TO  310 
I  CONTINUE 

>  ZP<L .NT -POT (NT 
I  CONTINUE 


>  IF I  SC. CO. 1 .OT  OO  TO  343 
00  330  L-I . INAX 
XPtLI-XPtLItSC 

>  CONTINUE 

PO  340  L-I.JHAX 
YP(LI-YP(LT9SC 
t  CONTINUE 

.  IF ISCZ.EO.I.Ot  OO  TO  333 
PO  330  L-I .INAX 
PO  330  N-t.JNAX 
ZPiL.HT-ZPtL.NTtSCZ 
T  CONTINUE 

t  IFINN.EO.lt  OO  TO  370 
PO  3A0  L-l.NCN 
CN-CNP(l) 

CALL  CNT0U8tXP.IHAX.TP. JNAX./P. I  DIN* .CN. SCP.CN > 
I  CONTINUE 

|  iriHNH.CO.IT  OO  TO  473 
N8|TE<A«3O0>  IXPtL  T.L-I. INAX  T 
W8I TE* A.JOOT  4 TPtLT. L-I.JHAX I 
T  F08NAT4 I JF8.3* 

PO  J90  H- I . JHAX 
NASA- JNAltl -A 

(8iri(«.lMl  *  ZPtl  .NASA*  *1  •  I  .  INAX  I 
I  CONI  | MX 

1  Nl-0 
K  I  -Ml  OUT  FI 
ItO  400  4  •»  I.KHAl 
|F i |G(K.4> .N( .01  GO  TO  400 
NI.HItl 
I  PI  IF  F  i  HI  »  -Ik 
i  CONTINUE 

IF  .HI  .10.01  ON  TO  47S 


1(0  4*A  R.I.NI 


E16 


K  t  MU  '  .  ft  • 
l  H  4  -.1  M  l  .  I 


l‘  1  *  I  I .  I 
•  Tl-A'l 

o  'i  »  *i*i  i  «as» 

tf  ,1  ■  M.i  •••%( 

■> '*  i*»  •  *  o»  >  * > »■>»•  ; 

(  ilMIIMtll 

I  II  4  40  i  |  .  Ni  H 
I  N  M  Nl  l|  • 


Hi-  4V  ",  |  .i 

Ml >N» l  "  l«l 

n-iN  **fi  i  <mi 

I-'  IN  if  l  I  .Ml  * 
t*  •l*t*C.*.L»l  .0.0*  GO  111  450 

t  in  i  c: 

ir*i  uo,o.o>  no  ro  4«o 

C4-L1  IJ 
GO  IU  4  *0 
4oO  C  4  '  0  •  O 
4'0  K->fc4  1 

Nr#lfc  1  *14  t  i  «P  <  M  i  I  -  KP  I  Nl  I  UP  I  4  I 
*PP‘*  i  «C4*l  »P«  N|  )  -IF IN  >  l**Pi  Ml 
4T.0  CONTI  Mill 

irtK.LC.II  GO  TO  440 

call  Plot  mm ii.(Miii.]i 

CALL  n0ll(^l2MrfCli.,> 

440  COMTIMUC 
410  COM? INUC 

4.’5  |l  >  MAS  .|0.0»  GO  TO  50 
DO  480  N  •  1 .MAN 
Ml *|PLOT<na*l 
. | I 

rpu .  i  >*POT<#t?iascr 

M?-IG(AI*4l 

in  i  ■pot  in? >ascr 

N2«IOOUi2l 

rp<?«  t »  -pom  «?  laser 

A?«IO< At »  J» 
in  r.?i«POMA?iascr 
*p' l i-*oi io< m . i >  > asc 
*Pi?)*NG<  toofi •?>  >asc 
TM 1 )-TG( totMi.i i >asc 
rp<?>«TGi  fOint  »4i  use 
DO  490  L-l.MCN 
CM-CNP<L » 

CALL  CMTOUAl *P. 2. TP.?. ZP.IDIMN.CM.SCP.CM) 
490  COMTIMUC 
480  COMTIMUC 


30  COMTIMUC 

IF ( NM .  CO .  |  >  GO  TO  300 
CALL  FINISH 
300  STOP 
CMP 


SUMOUT  INC  PAPL  T  <  NCN.CMP  > 
DIHCMSIOM  CNPlIOl 
DATA  NCN/?/ 


DATA  CMP/30. 0.39.0/ 

MCTUftM 

END 


END* 


